datagride المساعدة...المساعدة

وينكم شباب محد اسياعدني....؟

:unsure:

كيف ما شي امل حد برد ؟؟

استخدم الكود التالي

Private Sub DataGrid1_Click()
Dim sql As String
sql = "select * from st_inf where st_no = " & DataGrid1.Columns(0)
If rs1.State = adStateOpen Then rs1.Close
rs1.Open sql, db, adOpenDynamic, adLockOptimistic
      Txt1.Text = rs1![st_no]
      DbCombo1 = rs1![st_no]
      Txt2.Text = rs1![st_name]
      Txt3.Text = rs1![address]
      Txt4.Text = rs1![b_date]
      Txt5.Text = rs1![phone]
      Set DataGrid1.DataSource = rs1
      DataGrid1.Refresh
      Set MSHFlexGrid1.DataSource = rs1
      MSHFlexGrid1.Refresh
   dlist
   dcombo
txt6 = ""

End Sub

المثال كامل للاخ / ناصر جزاه الله خيرا

______.rar