[ahmedabdelaliem]

اتفضل اخي التعديل كما طلبت زر للعرض وزر للاضافة

PHP كود :

Private Sub Command1_Click()
Dim SQLs As String
Dim i As Integer
Dim RSDShow1 As New ADODB.Recordset
SQLs = ""
        SQLs = "Select * From Trans where Area='" & (Combo1.Text) & "'"
        If RSDShow1.State = adStateOpen Then RSDShow1.Close
        RSDShow1.Open SQLs, CN, adOpenKeyset, adLockPessimistic
        
         
         N = RSDShow1.RecordCount
         If N > 0 Then
      
    RSDShow1.MoveFirst
    Grid.Rows = RSDShow1.RecordCount + 1
        
        
        For i = 1 To N
                With Grid
                          If Not IsNull(RSDShow1.Fields(0)) Then .TextMatrix(i, 0) = RSDShow1.Fields(0)
                          If Not IsNull(RSDShow1.Fields(1)) Then .TextMatrix(i, 1) = RSDShow1.Fields(1)
                          '.TextMatrix(i, 2) = Combo2.Text
                          
                          End With
            RSDShow1.MoveNext
        Next
        End If
End Sub
Private Sub Command2_Click()
Dim i As Integer
 For i = 1 To Grid.Rows - 1
                With Grid
                          .TextMatrix(i, 2) = Combo2.Text
                          
                          End With
        Next
End Sub 


بالتوفيق

---

اتفضل اخي هذا التعديل مع الحفظ في قاعدة البيانات

بالتوفيق

---

وهذا الكود لتنظيف الجريد قبل كل عملية بحث ضيفه في اعلى الزر الاول

PHP كود :

For i = 1 To Grid.Rows - 1
For N = 0 To Grid.Cols - 1
Grid.TextMatrix(i, N) = ""
Next
Next 


بالتوفيق