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中呢

这两个代码怎么整合起来呢？

Dim ddh As WinForm.TextBox = e.Form.Controls("合同号")
Dim shk As WinForm.TextBox = e.Form.Controls("款号")
If shk.text > "" And ddh.text > "" Then
    Dim filter As String = "合同号 = \'" & ddh.Text & "\'And 款号 = \'" & shk.Text & "\' "
    Dim drs As  List(Of DataRow) = DataTables("订单数量明细").Select(filter)
    For i As Integer = 0 To drs.count-1
        e.Form.controls("Tsy_" & i+1).Text = drs(i)("颜色")
    Next
    For i As Integer = 0 To drs.count-1
        e.Form.controls("Tg_" & i+1).Text = drs(i)("规格")
    Next   
Else
    e.Form.controls("Tsy_1").Text = ""
    e.Form.controls("Tsy_2" ).Text = ""
    e.Form.controls("Tsy_3" ).Text = ""
    e.Form.controls("Tsy_4" ).Text = ""
    e.Form.controls("Tsy_5" ).Text = ""
    e.Form.controls("Tsy_6" ).Text = ""
    e.Form.controls("Tsy_7" ).Text = ""
End If

这个有一个问题，代码自身没有问题，但是当碰到下面的情况就会出来问题了，怎么解决呢

 加入label记录每一行的 _Identify 列的值。

 保存的时候，根据 _Identify 查找到对应的行，然后给表赋值。

不知道怎么家呀