主题：[求助]如何将表中某列的内容自动填写

参考

http://www.foxtable.com/webhelp/scr/2490.htm

把你的全部代码拷贝一次，把表名修改一下即可；或者贴出你现在写的代码。

Select Case e.DataCol.Name
    Case "合同状态" '如果是合同状态列的内容变动
        If e.NewValue = "已结束" Then '而且变动后的值是"已结束"
            e.DataRow.Locked = True'那么锁定此行
        End If
    Case "合同单号"
        Dim cwbb As DataRow = DataTables("财务报表_会计").Find("合同单号 = '" & e.OldValue & "'")
        If cwbb Is Nothing Then
            cwbb = DataTables("财务报表_会计").AddNew()
            cwbb("合同单号") = e.DataRow("合同单号")
            cwbb("业务员") = e.DataRow("业务员")
            cwbb("合同金额") = e.DataRow("合同金额")
        Else
            cwbb("合同单号") = e.DataRow("合同单号")
        End If

        cwbb = DataTables("报告管理_客服员").Find("合同单号 = '" & e.OldValue & "'")
        If cwbb Is Nothing Then
            cwbb = DataTables("报告管理_客服员").AddNew()
            cwbb("合同单号") = e.DataRow("合同单号")
            cwbb("报告版式") = e.DataRow("报告版式")
        Else
            cwbb("合同单号") = e.DataRow("合同单号")
        End If
    Case "业务员" , "合同金额"
        Dim cwbb As DataRow = DataTables("财务报表_会计").Find("合同单号 = '" & e.DataRow("合同单号") & "'")
        If cwbb IsNot Nothing Then
            cwbb(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
End Select