[Samosoft]

PHP كود :

On Error Resume Next
        For MyRows As Integer = 0 To Me.DGV1.Rows.Count - 1

            SerSt = DGV1.Item(0, MyRows).Value
            SerGr = DGV1.Item(1, MyRows).Value
            SerPr = DGV1.Item(2, MyRows).Value
            Dim adI01 As New SqlDataAdapter("SELECT * FROM Itm01 WHERE I01_St LIKE '" & SerSt & "' And I01_Gr LIKE '" & SerGr & "' And I01_Pr LIKE '" & SerPr & "'", Conn)
            Conn.Open()
            DsI01.Clear()
            adI01.Fill(DsI01, "Itm01")
            Conn.Close()
            Dim MyPosition As Integer = Me.BindingContext(DsI01, "Itm01").Position
 DsI01.Tables("Itm01").Rows(MyPosition).BeginEdit()
DsI01.Tables("Itm01").Rows(MyPosition).Item("I01_Outside") = Val(Doq)
DsI01.Tables("Itm01").Rows(MyPosition).EndEdit()
            Validate()
            adI01.Update(DsI01.Tables(0))
            DsI01.AcceptChanges()
Next