Dim kh As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim ddh As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim yl As WinForm.TextBox = e.Form.Controls("TextBox3")
If kh.text > "" And ddh.text > "" Then
Dim filter As String = "客户 = '" & e.Form.Controls("TextBox1").Text & "' And 订单号 = '" & e.Form.Controls("TextBox2").Text & "' "
Dim drs As List(Of DataRow) = DataTables("表A").Select(filter)
For i As Integer = 0 To drs.count-1
e.Form.controls("TextBox" & i+3).Text = drs(i)("原料")
Next
Else
e.Form.controls("TextBox3" ).Text = ""
e.Form.controls("TextBox4" ).Text = ""
e.Form.controls("TextBox5" ).Text = ""
End If
上面表达式可以将表A相对应的数据提取到TextBox3,TextBox4,TextBox5中,但是不知道如何修改TextBox3,TextBox4,TextBox5返回到表A中呢