PDA

View Full Version : مبتدی: Data Grid


Mohamad ghorbani
سه شنبه 20 دی 1390, 17:46 عصر
سلام.
چجوری میشه وقتی توی Data Grid یک فیلد رو انتخاب کردی، یعنی زمانی که روش کلیک کنیم،
یه فرم دیگه باز شه و محتویات اون فیلد داخل تکس باکس فرم جدید وارد شه؟
آیا رویداد خاصی داره؟
با تشکر ...
Veteran
سه شنبه 20 دی 1390, 18:04 عصر
اگه درست فهمیده باشم شما میخوایم مقادیر فیلد های سطر جاری رو به دست بیارین
خب به فرض
جدول ما 2 تا فیلد داره

form2.show
Form2.Text1 = Adodc1.Recordset.Fields("name")
Form2.Text2 = Adodc1.Recordset.Fields("family")
Mohamad ghorbani
سه شنبه 20 دی 1390, 19:27 عصر
اگه درست فهمیده باشم شما میخوایم مقادیر فیلد های سطر جاری رو به دست بیارین
خب به فرض
جدول ما 2 تا فیلد داره

form2.show
Form2.Text1 = Adodc1.Recordset.Fields("name")
Form2.Text2 = Adodc1.Recordset.Fields("family")


دوست عزیز ممنون.
من مشکلم اینه که کد رو توی چه رویدادی بنویسم.
من می خوام زمانی که با موس روی یکی از فیلدهای جدول کلیک کردم، فرم 2 باز بشه . مقادیر اون فیلد داخل تکس باکس بیاد
night_secret
سه شنبه 20 دی 1390, 20:50 عصر
دوست عزیز این برنامه رو دانلود کن کمکت میکنه
http://www.4shared.com/zip/7rtUo29t/Telephone.html
Mohamad ghorbani
سه شنبه 20 دی 1390, 21:46 عصر
دوست عزیز این برنامه رو دانلود کن کمکت میکنه
http://www.4shared.com/zip/7rtUo29t/Telephone.html
ممنون ولی مشکلم حل نشد!
فکر کنم من بد توضیح میدم.
Veteran
چهارشنبه 21 دی 1390, 08:55 صبح
بستگی به خودتون داره که توی چه رویدادی بزارین
مثلا رویداد کلیک
در دیتاگرید هرموقعه کلیک کردین محتوای فیلد های سطر انتخاب شده میاد به تکست باکس ها
اگه اینم نیست
توضیح بدین
aryasoft2872
چهارشنبه 21 دی 1390, 12:03 عصر
توی رویداد کلیک اگر روی جاخالی کلیک کنید مشکل داره دو تا راه حل به ذهن میرسه یکی محاسبه محل جای خالی در لحظه رویداد کلیک یکی هم استفاده از ابزار VSFlexGrid که خودش رویداد تغییر سطر داره.
hosein3000
چهارشنبه 21 دی 1390, 19:08 عصر
با سلام
من از کد زیر استفاده کردم
وقتی روی یکی از رکورد های datagrid کلیک می کنم فرم frmeditpard باز میشه و محتویات اون سطر از دیتاگرید داخل تکست باکس ها نمایش داده میشه
البته من از این روش برای ویرایش اطلاعات وارد شده استفاده کردم
Private Sub DataGrid1_Click()
frmeditpard.Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db.mdb;Persist Security Info=False;"
frmeditpard.Adodc1.RecordSource = Adodc1.RecordSource
frmeditpard.Adodc1.Refresh
frmeditpard.Show
frmeditpard.Adodc1.Recordset.AbsolutePosition = Adodc1.Recordset.AbsolutePosition
frmlistpard.DataGrid1.Refresh
End Sub
با تشکر
Mohamad ghorbani
پنج شنبه 22 دی 1390, 13:24 عصر
متشکرم مشکلم حل شد.
با تشکر از همه