PDA

View Full Version : سوال: چطور بفهمیم در textbox " پایان جمله کجاست ؟



aftabeshargh
پنج شنبه 24 فروردین 1391, 15:21 عصر
سلام

اگه دوتا تکست باکس داشته باشیم که وقتی بخوایم متن تکست باکس اول رو با کلیک بر یه دکمه بفرستیم تو تکست باکس دوم و به صورتی که بعد از هر جمله یه "," مثلا اضافه کنه اما وقتی پایان جمله بود دیگه "," اضافه نشه


textbox1.text=textbox2.text + ","

مثلا وقتی چندتا به ترتیب عدد وارد میکنیم و هربار کلیک میکنیم :

textbox1.text=1,2,3,4,5,

سوال : چطور "," آخری رو حذف کنیم و یا نوشته نشه ؟

کاظم فلاحی خواه
پنج شنبه 24 فروردین 1391, 15:53 عصر
سلام ، ببین این بدردت می خوره .

85616

85617

hakim22
پنج شنبه 24 فروردین 1391, 16:10 عصر
با یک if حل میشه !!!

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Not TextBox2.Text = "" Then
TextBox2.Text = TextBox2.Text + "," + TextBox1.Text
Else
TextBox2.Text = TextBox1.Text
End If
End Sub


امتحان کردم و جواب هم داد !

aftabeshargh
پنج شنبه 24 فروردین 1391, 16:11 عصر
ممنونم " مرسی
موفق باشید

aftabeshargh
پنج شنبه 24 فروردین 1391, 16:45 عصر
سلام

تو پست های قبل برای تکست باکس شرط میزاشتیم که اگه خالی بود " دیگه اولش "," اضافه نکنه "
یه نگاهی به چند خط زیر بندازید :


If Me.dgv.SelectedRows.Count = 0 Then Exit Sub
Dim TSQL As String = "SELECT * FROM tbl_s WHERE id IN ("
For Each aRow As DataGridViewRow In Me.dgv.SelectedRows
If aRow.Index <> 0 Then

TSQL = TSQL + "," + aRow.Cells(0).Value.ToString

End If
Next
TSQL &= ")"
cmd.CommandText = TSQL

مثلا به این صورت نشون میده :1,2,3,


حالا اگه میشه برای TSQL یه شرط بزارید که اولش که خالی هستش " دیگه "," نیاد

hakim22
پنج شنبه 24 فروردین 1391, 17:23 عصر
اینجوری !


Dim TSQL As String = "SELECT * FROM tbl_s WHERE id IN ("
Dim LookUpParams As String
For Each aRow As DataGridViewRow In Me.dgv.SelectedRows
If aRow.Index <> 0 Then
'TSQL = TSQL + "," + aRow.Cells(0).Value.ToString
If Not LookUpParams = "" Then
LookUpParams = LookUpParams + "," + aRow.Cells(0).Value.ToString
Else
LookUpParams = aRow.Cells(0).Value.ToString
End If



End If
Next

TSQL = TSQL + LookUpParams + ")"


لازم نیست فقط یک متغیر برای TSQL استفاده کنید.
اما کلا کد نویسی پایگاه داده با متن خیلی درهم و برهم میشه.
مخصوصا اینکه این یک حفره امنیتی است و خیلی راحت میشه با تغییر دادن تکستهای درون TSQL گزارشهای دیگری از پایگاه گرفت.
فقط از فرمانهای ADO.NET و نیز از LINQ استفاده کنید که کارتان را خیلی راحت تر خواهد کرد.