۲۳-اسفند-۱۳۸۷, ۱۴:۳۵:۴۸
با سلام به دوستان
من یه دیتا گرید و دو تا تکست باکی برای جستجو توی یک فرم
گذاشتم ( پیوست 1)
حال وقتی نتایج جستجو را می بینم وفتی دوبار بر روی هریک از سطر ها کلیک کنم
در پنچره دیگر اطلاعات شخص دیگر نشان داده میشه برای ویرایش
مثلا نتیجه جستجو محمدی است به رنگ زرد مشخص است وقتی دوبار روی ان کلیک می کنم قربانی به نمایش در میآید (پیوست 2)
کد ها را هم می ذازم اشکال از کجاست؟
کد جستجو : ( توی notpad درست ببینید)
Private Sub Command3_Click()
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\senf.mdb;Persist Security Info=False;"
'.CommandType = adCmdText
.RecordSource = "select * from aza where family='" & Text1.Text & "' "
.Refresh
End With
Set DataGrid1.DataSource = Adodc1
End Sub
کد دوبار کلیک بر روی سطر دیتا گرید
Private Sub DataGrid1_DblClick()
edit.Show
edit.Adodc1.Recordset.AbsolutePosition = Adodc1.Recordset.AbsolutePosition
searchedit.DataGrid1.Refresh
End Sub
من یه دیتا گرید و دو تا تکست باکی برای جستجو توی یک فرم
گذاشتم ( پیوست 1)
حال وقتی نتایج جستجو را می بینم وفتی دوبار بر روی هریک از سطر ها کلیک کنم
در پنچره دیگر اطلاعات شخص دیگر نشان داده میشه برای ویرایش
مثلا نتیجه جستجو محمدی است به رنگ زرد مشخص است وقتی دوبار روی ان کلیک می کنم قربانی به نمایش در میآید (پیوست 2)
کد ها را هم می ذازم اشکال از کجاست؟
کد جستجو : ( توی notpad درست ببینید)
Private Sub Command3_Click()
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\senf.mdb;Persist Security Info=False;"
'.CommandType = adCmdText
.RecordSource = "select * from aza where family='" & Text1.Text & "' "
.Refresh
End With
Set DataGrid1.DataSource = Adodc1
End Sub
کد دوبار کلیک بر روی سطر دیتا گرید
Private Sub DataGrid1_DblClick()
edit.Show
edit.Adodc1.Recordset.AbsolutePosition = Adodc1.Recordset.AbsolutePosition
searchedit.DataGrid1.Refresh
End Sub