订单、订单明细和销售单、销售明细互相关联，订单、销售单的编号各自自动生成编号，订单和订单明细分别有逻辑列“生成销售单”、“生成销售明细”，现在订单表的“生成销售单”逻辑列打勾后，在销售单里自动生成了销售单，但是，订单明细表的“生成销售明细”逻辑列打勾，按销售单生成关联销售明细表确无能力做到，还望前辈老师帮忙写一下代码，谢谢！现在把项目附上：

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

点击浏览该文件:生成销售单和明细.table

谢谢老师！这里我再请问一下老师，如果不用订单和订单明细表中的逻辑列打勾生成销售单和销售明细表，而是在订单窗口中用点击按扭，直接生成销售单和销售明细，那按扭代码如何写呢？请老师再帮忙一下，谢谢！

呃，一样，直接给订单表勾选一下即可。比如

Datatables("订单").Replace("逻辑列", true)

Dim pr As Row = Tables("销售订单").Current
Dim nma() As String = {"客户姓名","客户地址","客户电话"} \'A表数据来源列
Dim nmb() As String = {"客户姓名","客户地址","客户电话"} \'B表数据接收列
Dim dr As DataRow = DataTables("销售单").AddNew
For i As Integer = 0 To nma.Length - 1
    dr(nmb(i)) = pr(nma(i))
Next

For Each cdr As DataRow In DataTables("订单明细").Select("订单编号 = \'" & pr("订单编号") & "\'")
    Dim xnma() As String = {"客户姓名","客户地址","客户电话","商品名称","单价"} \'A表数据来源列
    Dim xnmb() As String = {"客户姓名","客户地址","客户电话","商品名称","单价"} \'B表数据接收列
    Dim xdr As DataRow = DataTables("销售明细").AddNew
    For i As Integer = 0 To nma.Length - 1
        xdr(xnmb(i)) = cdr(xnma(i))
    Next
   
    xdr("销售编号") = dr("销售编号")
    xdr("销售日期") = dr("销售日期")
Next

Dim pr As Row = Tables("销售订单").Current
Dim nma() As String = {"客户姓名","客户地址","客户电话"} \'A表数据来源列
Dim nmb() As String = {"客户姓名","客户地址","客户电话"} \'B表数据接收列
Dim dr As DataRow = DataTables("销售单").AddNew
For i As Integer = 0 To nma.Length - 1
    dr(nmb(i)) = pr(nma(i))
Next

For Each cdr As DataRow In DataTables("订单明细").Select("订单编号 = \'" & pr("订单编号") & "\'")
    Dim xnma() As String = {"客户姓名","客户地址","客户电话","商品名称","单价"} \'A表数据来源列
    Dim xnmb() As String = {"客户姓名","客户地址","客户电话","商品名称","单价"} \'B表数据接收列
    Dim xdr As DataRow = DataTables("销售明细").AddNew
    For i As Integer = 0 To xnma.Length - 1
        xdr(xnmb(i)) = cdr(xnma(i))
    Next
   
    xdr("销售编号") = dr("销售编号")
    xdr("销售日期") = dr("销售日期")
Next