主题：流水账的制作

多笔的时候，你汇总成一条记录，还是多条记录写到明细表？

 

如果是多条记录，你直接新增一行赋值不就行了？

_Identify这个号码如果插入行、上移或下移行、删除行会发生变化吗

不会变化，是固定的。

但是明细账中是自动编号，只要新增行就会自动新增加一个凭证号

凭证号你可以直接赋值收款表的单号或者主键号都可以啊。为什么要自动增加凭证号。

 

而且，你也可以根据收款表的单号查询相同单号的凭证号啊

因为这个明细账不会只对收款凭证，付款凭证、转账凭证都会把发生记录到这个明细账中，因此这个明细账必须单独编号，但是就是需要在一张凭证多笔业务的情况下怎么能够能在明细账也是一个凭证号，修改、删除可以用主键号

那你明细表就存储收款表的单号，根据此单号查找是否之前已经有值，有值的，就直接赋值不需要重新生成。

Select Case e.DataCol.name
    Case "日期","金额","收款方式","摘要","开户银行","收款编号"
        Dim dr As DataRow = DataTables("明细账").Find("源单号 = '销售收款_" & e.DataRow("收款编号") & "'")
        If dr Is Nothing Then
            dr = DataTables("明细账").AddNew()
            dr("源单号")= "销售收款_" & e.DataRow("收款编号")
            dr("日期")=e.DataRow("日期")
            dr("借方_金额")=e.DataRow("金额")
            dr("摘要")=e.DataRow("摘要")
            e.DataRow("凭证号")=dr("凭证号")
            e.DataRow("Identify")=dr("_Identify")
            Select Case e.DataRow("收款方式")
                Case "现金"
                    dr("会计科目")="库存现金"
                    dr("项目")=Nothing
                Case "银行存款"
                    dr("会计科目")="银行存款"
                    dr("项目")=e.DataRow("开户银行")
                Case "承兑汇piao"
                    dr("会计科目")="应收piao据"
                    dr("项目")=Nothing
            End Select
        Else
           
            dr= DataTables("明细账").AddNew()
            dr("源单号")= "销售收款_" & e.DataRow("收款编号")
            dr("日期")=e.DataRow("日期")
            dr("凭证号")=dr("凭证号")
           
            dr("借方_金额")=e.DataRow("金额")
            dr("摘要")=e.DataRow("摘要")
            e.DataRow("凭证号")=dr("凭证号")
            Select Case e.DataRow("收款方式")
                Case "现金"
                    dr("会计科目")="库存现金"
                    dr("项目")=Nothing
                Case "银行存款"
                    dr("会计科目")="银行存款"
                    dr("项目")=e.DataRow("开户银行")
                Case "承兑汇piao"
                    dr("会计科目")="应收piao据"
                    dr("项目")=Nothing
            End Select
           
        End If
End Select

还是不行呀。问题出在什么地方呀

Identify这个编号在同一台电脑上不变，把软件复制到另一台电脑上就全变了