主题：任何通过TextBox修改表的数据呢

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

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

此主题相关图片如下：wt1.jpg


此主题相关图片如下：wt2.jpg

不知道怎么家呀

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.foxdb

密码：123456

订单查询修改窗口

此主题相关图片如下：wt1.jpg

 

这几个数据反过来就对了，怎么改呢

    Dim drs As  List(Of DataRow) = DataTables("订单面料明细").Select(filter)
    For ir As Integer = 1 To drs.count-1
        e.Form.controls("Tml_" & ir & "_2").Text = drs(ir)("面料名称")
    Next
    For k As Integer = 1 To j-1
        For l As Integer = 1 To i-1
            Dim temp As String = filter & " and 面料名称 = '" & e.Form.controls("Tml_" & k & "_2").Text & "' "
            Dim fdr As DataRow = DataTables("订单面料明细").find(temp)
            If fdr IsNot Nothing Then
                e.Form.controls("Tml_" & k & "_3" ).Text = fdr("面料规格")
                e.Form.controls("Tml_" & k & "_1" ).Text = fdr("面料颜色")
            End If
        Next
    Next
又出来一个问题，订单面料明细里只出来3行数据，而且因为“面料名称”是相同的，所以颜色都变为一样了

 

此主题相关图片如下：wt1.jpg


此主题相关图片如下：wt2.jpg

drZ("合同交期") = e.Form.controls("合同交期").Value

此主题相关图片如下：wt1.jpg

怎么改啊