انتقال یک ستون از دیتا گرید به textbox

[omid217]

سلام دوستان
این یه دیکشنری سادس که معنی های یک کلمه رو تو data grid نشون میده حالا میخوام این کلمه ها رو به textbox2 منتقل کنم که به مشکل برخوردم
http://www.pic98.ir/images/07ubxdff1v5j6nv2afpv.jpg
کلا اگر راه دیگه ای به نظرتون میرسه مثلا اضافه کردن به کمبوباکس یا هر چیزه دیگه اونم عنوان کنید.
ممنون

[boveiryghasem]

سلام

واسه TextBox این کدش میشه:
If DataGridView1.Item(0, 0).Value IsNot Nothing Then
TextBox1.Text = DataGridView1.Item(0, 0).Value.ToString()
End If
اما فقط یه کلمه جا میشه که فکر کنم ComboBox بهتر باشه:
For i = 0 To DataGridView1.RowCount - 2
If DataGridView1.Item(0, 0).Value IsNot Nothing Then
ComboBox1.Items.Add(DataGridView1.Item(0, i).Value)
End If
Next

[sagggad]

سلام

واسه TextBox این کدش میشه:
If DataGridView1.Item(0, 0).Value IsNot Nothing Then
TextBox1.Text = DataGridView1.Item(0, 0).Value.ToString()
End If
اما فقط یه کلمه جا میشه که فکر کنم ComboBox بهتر باشه:
For i = 0 To DataGridView1.RowCount - 2
If DataGridView1.Item(0, 0).Value IsNot Nothing Then
ComboBox1.Items.Add(DataGridView1.Item(0, i).Value)
End If
Next

نه دوست من درتکس باکس هم میشه نمایش داد.میشه از راه زیر عمل کرد:

ابتدا خاصیت MultiLine تکس باکس را True قرار دهید.(تکس باکس به طور پیشفرض به نامTextBox1 در نظر گرفته شده است)
سپس کد زیر را در رویداد کلیک یک دکمه قرار می دهیم که می خواهیم با کلیک بر روی آن این عمل انجام شود:

For i = 0 To DataGridView1.Rows.Count - 2
If DataGridView1.Rows(i).Cells(0).Value IsNot Nothing Then
TextBox1.Text = TextBox1.Text & vbCrLf & DataGridView1.Rows(i).Cells(0).Value
End If
Next

به همین راحتی میتوان تمامی کلمات را به طوری که هر کدام دریک خط از تکس باکس قرار بگیرند در تکس باکس نوشت.
موفق باشید

[sagggad]

بیا داداش اینم سورسش:

فقط من اینجا از دیتابیس استفاده نکردم.(چون الکی حجم میبرد)یه گرید ویو گذاشتم برا امتحان خودت چند تا متن تو خونه هاش بنویس بعد رو دکمه "کپی کن" کلیک کن.
113604

امیدوارم مشکلت رو حل کرده باشم

[sagggad]

البته الان نگاه کردم دیدم این کار هر دفعه همون خونه هارو حتی اگر تکراری باشه درتکس باکس چاپ میکنه.برای ازبین رفتن این اشکال قبل از نوشتن حلقه For باید کد زیر رو در همون رویدادی که حلقهFor رو نوشتی بنویسی:
""=TextBox1.Text

[sagggad]

در اصل باید به جای اون کد از کد زیر استفاده کنی:
""=TextBox1.Text
For i = 0 To DataGridView1.Rows.Count - 2
If DataGridView1.Rows(i).Cells(0).Value IsNot Nothing Then
TextBox1.Text = TextBox1.Text & vbCrLf & DataGridView1.Rows(i).Cells(0).Value
End If
Next

[omid217]

ممنون دوست عزیز مشکل حل شد:لبخندساده:

[sagggad]

ممنون دوست عزیز مشکل حل شد:لبخندساده:
خواهش میکنم

[kds4you]

ممننننننننووووووووووونننن ن