جرب هذا التعديل
PHP كود :
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
While bs2.Position + 1 & " / " & bs2.Count <> bs2.Count & " / " & bs2.Count
While Val(TextBox28.Text) <= Val(TextBox30.Text)
While bs1.Position + 1 & " / " & bs1.Count <> bs1.Count & " / " & bs1.Count
If Trim(TextBox2.Text) = Trim(TextBox21.Text) Then
TextBox16.Text = TextBox18.Text
TextBox17.Text = TextBox19.Text
TextBox7.Text = TextBox20.Text
Me.Refresh()
Dim tab1 As String
tab1 = Trim(TextBox28.Text)
''Dim savInto As New OleDb.OleDbCommand("update tab1 set TextBox16.Text='" & Trim(TextBox18.Text) & "',TextBox17.Text='" & Trim(TextBox19.Text) & "',TextBox7.Text='" & Trim(TextBox20.Text) & "'", conn)
Dim savInto As New OleDb.OleDbCommand(String.Format("update [{0}] set [P]=@1,[Q]=@2,[G]=@3", TextBox28.Text), conn)
savInto.Parameters.AddWithValue("@1", Trim(TextBox18.Text))
savInto.Parameters.AddWithValue("@2", Trim(TextBox19.Text))
savInto.Parameters.AddWithValue("@3", Trim(TextBox20.Text))
conn.Open()
savInto.ExecuteNonQuery()
conn.Close()
End If
Button2.PerformClick()
Me.Refresh()
End While
Button9.PerformClick()
Me.Refresh()
End While
TextBox28.Text = 1
Button6.PerformClick()
Me.Refresh()
End While
End Sub
