主题：表自动录入

师傅你好：

要求在A表中输入数据（B表格式和A表格式一样），B表自动录入A表的数据

师傅你好：我在木盘订单表的属性中用下列代码，木盘出订单表没有自动录入数据，请师傅帮忙，谢谢！

我装将木盘订单的DataColChanged事件代码设置为：

Select Case e.DataCol.name
    Case "订单编号"
        Dim dr As DataRow = DataTables("木盘出单").Find("订单编号 = '" & e.OldValue & "'")
        If dr Is Nothing Then
            dr = DataTables("木盘出单").AddNew()
            dr("订单编号") = e.DataRow("订单编号")
            dr("日期") = e.DataRow("日期")
            dr("品种") = e.DataRow("品种")
            dr("出口国家") = e.DataRow("出口国家")
            dr("处理要求") = e.DataRow("处理要求")
            dr("出证") = e.DataRow("出证")
            dr("规格尺寸") = e.DataRow("规格尺寸")
            dr("订单数量") = e.DataRow("订单数量")
            dr("载重") = e.DataRow("载重")
            dr("交货日期") = e.DataRow("交货日期")
            dr("备注") = e.DataRow("备注")
        Else
            dr("订单编号") = e.DataRow("订单编号")
        End If
    Case "品种","规格尺寸"
        Dim dr As DataRow = DataTables("木盘出单").Find("订单编号 = '" & e.DataRow("订单编号") & "'")
        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
End Select

2、将木盘订单表的DataRowDeleting事件代码设置为：

Dim dr As DataRow = DataTables("木盘出单").Find("订单编号 = '" & e.DataRow("订单编号") & "'")
If dr IsNot Nothing Then
    dr.Delete()
End If