主题：[求助]逻辑打勾订单、订单明细自生成销售单、销售明细代码

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

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