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

请教老师：

      有两张表，一张是“期初数据”，一张是“本期发生”，希望将这两张表中的数据整合到一张新表“账簿”中，并按[日期]、[凭证编号]、[客户厂商编号]排序，其中“期初数据”表中的[期初余额]列并入“账簿”表中的[余额]列，“本期发生”表按[借或贷]的不同，将[本期发生额]分别并入“账簿”表中的[借方发生额]和[贷方发生额]中，希望“账簿”表每次打开后自动更新数据，请问怎么做呀？

      谢谢！

此主题相关图片如下：001.jpg


此主题相关图片如下：002.jpg


此主题相关图片如下：003.jpg

上传foxtable实例

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

点击浏览该文件:账簿.foxdb

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 = "日期,凭证编号,客户厂商编号"

谢谢！非常感谢！