主题：[求助]如何从期初数据和本期发生两个表中生成新的账簿表

Dim dt As DataTable = DataTables("账簿")
Dim dt1 As DataTable = DataTables("期初数据")
Dim dt2 As DataTable = DataTables("本期发生")
dt.DataRows.clear
For Each dr As DataRow In dt1.Select("")
    Dim ndr As DataRow = dt.AddNew
    ndr("日期") = dr("日期")
    ndr("凭证编号") = dr("凭证编号")
    ndr("科目代码") = dr("科目代码")
    ndr("客户厂商编号") = dr("客户厂商编码")
    ndr("借或贷") = dr("借或贷")
    ndr("余额") = dr("期初余额")
Next
For Each dr As DataRow In dt2.Select("")
    Dim ndr As DataRow = dt.AddNew
    ndr("日期") = dr("日期")
    ndr("凭证编号") = dr("凭证编号")
    ndr("科目代码") = dr("科目代码")
    ndr("客户厂商编号") = dr("客户厂商编号")
    ndr("借或贷") = dr("借或贷")
    If dr("借或贷") = "借" Then
        ndr("借方发生额") = dr("本期发生额")
    Else
        ndr("贷方发生额") = dr("本期发生额")
    End If
Next

Tables("账簿").sort = "日期,凭证编号,客户厂商编号"