师傅你好：

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

帮助有数不清的这样的例子，你何不先看帮助？

不写代码，用关联：

http://www.foxtable.com/help/topics/0106.htm

http://www.foxtable.com/help/topics/2315.htm

写代码：

http://www.foxtable.com/help/topics/1528.htm

http://www.foxtable.com/help/topics/2490.htm

提示： 结构相同的数据，不应该出现在两个表中，这样做没有任何意义。

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

我装将木盘订单的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