实现“入库单在保存时自动生成会计凭证” - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.DataCol.name = "已记账" Then
    If e.DataRow("已记账")= True Then
        For Each km As String In DataTables("结算单明细表").GetValues("借方科目代码","[结算单号] = '" & e.DataRow("结算单号") & "'")
            Dim filter = "[结算单号] = '" & e.DataRow("结算单号") & "' and [借方科目代码] = '" & km & "'"
            Dim fdr As DataRow = DataTables("凭证明细表").Find(filter)
            If fdr Is Nothing Then
                fdr = DataTables("凭证明细表").addnew
                fdr("日期") = Date.Today
                fdr("结算单号") = e.DataRow("结算单号")
                fdr("借方科目代码") = km
            End If
            fdr("数量") = DataTables("凭证明细表").Compute("sum(数量)", filter)
            fdr("单号") = DataTables("凭证明细表").GetComboListString("单号", filter)
        Next
    Else
        Dim dt1 As DataTable = DataTables("凭证明细表")
        dt1.DeleteFor("结算单号 = '" & e.DataRow("结算单号") & "'")
    End If
End If

主题：实现“入库单在保存时自动生成会计凭证”