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

Dim kh As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim ddh As WinForm.TextBox = e.Form.Controls("TextBox2")
If kh.text > "" And ddh.text > "" Then
    Dim filter As String = "客户 = '" & kh.Text & "' And 订单号 = '" & ddh.Text & "' "
    Dim drs As  List(Of DataRow) = DataTables("表A").Select(filter)
    For i As Integer = 0 To drs.count-1
        drs(i)("原料") = e.Form.controls("TextBox" & i+3).Text
    Next
End If

 做两个按钮，一个获取，一个保存，粘贴进去就行啊。

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

 

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

  做一个实例发上来。

参考代码

 

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 i As Integer = 1
    For Each gg As String  In DataTables("订单数量明细").GetValues("规格", filter)
        e.Form.controls("Tg_" & i).Text = gg
        i+=1
    Next
    Dim j As Integer = 1
    For Each ys As String  In DataTables("订单数量明细").GetValues("颜色", filter)
        e.Form.controls("Tsy_" & j).Text = ys
        j+=1
    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("Tsy_" & k).Text & "' and 规格 = '" & e.Form.controls("Tg_" & l).Text & "'"
            Dim fdr As DataRow = DataTables("订单数量明细").find(temp)
            If fdr IsNot Nothing Then
                e.Form.controls("Ts_" & k & "_" & l).Text = fdr("数量")
            End If
        Next
    Next
End If

For Each gg As String  In DataTables("订单数量明细").GetValues("规格", filter, "规格 desc")

1、看看你的datacolChanged事件是否有问题；

 

2、看看你控件名是否写错

 

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