اضافه کردن داده به دیتاگرید

[parsaid]

سلام دوستان من با این کدها میخوام اطلاعات TextBoxها رو با زدن کلید به دیتاگرید وارد کنم:

Dim i As Integer
DataGV.Rows.Add()
DataGV.Item("clm1", i).Value = cmbMoein.Text
DataGV.Item("clm2", i).Value = txtMablagh.Text
DataGV.Item("clm3", i).Value = txtSharh.Text
DataGV.Item("clm4", i).Value = txtDate.Text



ولی با هربار وارد کردن داده، ردیف قبلی در دیتاگرید حذف میشه.

[Mani_rf]

در دیتاگیرد مورد نظر خاصیت AllowUserToAddRows را False کن.

[parsaid]

اتفاقاً گزینه AllowUserToAddRows رو False هستش

[parsaid]

دوستان عزیز، لطفاً کمک کنین
با چه روشی میتونم اطلاعات داخل textboxها رو به دیتاگرید اضافه کنم؟؟؟؟؟؟؟؟؟؟؟؟ :گریه:

[mgh64120]

سلام دوست عزيز
شما ابتدا به تعداد لازم سطر و ستون به ديتاگريد اضافه كن.


Grid.Rows.Insert(0,3)
'
Grid.Item(0,0).Value= Textbox1.Text
Grid.Item(0,1).Value= Textbox2.Text
Grid.Item(0,2).Value= Textbox3.Text

موفق باشيد.

[parsaid]

ممنون که جواب دادین، بنده بعد از استفاده از این کدها

DataGV.Rows.Insert(0, 4)
DataGV.Item("clm1", 0).Value = cmbMoein.Text
DataGV.Item("clm2", 1).Value = txtMablagh.Text
DataGV.Item("clm3", 2).Value = txtSharh.Text
DataGV.Item("clm4", 3).Value = txtDate.Text

وقتی که میخوام اطلاعات داخل تکست باکسها رو به دیتاگرید وارد کنم:
77985
داده ها به شکل زیر در دیتاگرید نمایش داده میشن
77986

[mgh64120]

ببين دوست عزيز


Grid.Item(ColumnIndex as Integer, RowIndex As Integer).Value = مقدار مورد نظر

شما اگر ميخواهيد كه اين اطلاعات در يك سطر ذخيره شوند باشد RowIndex همه رو يك عدد انتخاب كنيد.
يعني :


DataGV.Item("clm1", 0).Value = cmbMoein.Text
DataGV.Item("clm2", 0).Value = txtMablagh.Text
DataGV.Item("clm3", 0).Value = txtSharh.Text
DataGV.Item("clm4", 0).Value = txtDate.Text

موفق باشد.