21-04-14, 02:51 AM
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