主题：[求助]数据填充

项目事件MainTableChanged

If MainTable.Name = "进销存" Then
    DataTables("进销存").DataRows.Clear()

    Dim f As New Filler
    f.SourceTable = DataTables("期初") '指定数据来源
    f.SourceCols = "日期,厂家,货号,品名,规格,期初数量,期初金额," '指定数据来源列
    f.DataTable = DataTables("进销存") '指定数据接收表
    f.DataCols = "日期,厂家,货号,品名,规格,期初数量,期初金额" '指定数据接收列
    f.Fill() '填充数据
   
    Dim f2 As New Filler
    f2.SourceTable = DataTables("入库") '指定数据来源
    f2.SourceCols = "入库日期,厂家,货号,品名,规格,入库数量,入库金额" '指定数据来源列
    f2.DataTable = DataTables("进销存") '指定数据接收表
    f2.DataCols = "日期,厂家,货号,品名,规格,入库数量,入库金额" '指定数据接收列   
    f2.Fill() '填充数据

    Dim f3 As New Filler
    f3.SourceTable = DataTables("出库") '指定数据来源
    f3.SourceCols = "出库日期,厂家,货号,品名,规格,出库数量,出库金额" '指定数据来源列
    f3.DataTable = DataTables("进销存") '指定数据接收表
    f3.DataCols = "日期,厂家,货号,品名,规格,出库数量,出库金额" '指定数据接收列   
    f3.Fill() '填充数据

    Dim drs As List(of DataRow) = DataTables("进销存").Select("", "货号,日期 ") '注意排序参数
    drs(0)("库存结存数量") = drs(0)("期初数量")
    drs(0)("库存结存金额") = drs(0)("期初金额")
    Dim n1,n2 As Double
    For i As Integer = 1 To drs.Count - 1  '从第二行开始逐行计算累计
         n1 = IIF( drs(i)("货号") = drs(i-1)("货号"),drs(i-1)("库存结存数量"),0)
         n2 = IIF( drs(i)("货号") = drs(i-1)("货号"),drs(i-1)("库存结存金额"),0)
         drs(i)("库存结存数量") = drs(i)("期初数量") + n1+ drs(i)("入库数量")- drs(i)("出库数量")
         drs(i)("库存结存金额") = drs(i)("期初金额") + n2+ drs(i)("入库金额")- drs(i)("出库金额")
    Next
'Tables("进销存").Sort = "日期,品名"
End If

请老师帮助修改代码

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

点击浏览该文件:进销存.table

 无法找到列

 这句，多了一个逗号

 

f.SourceCols = "日期,厂家,货号,品名,规格,期初数量,期初金额," '指定数据来源列

谢谢！有数据填充了。但打开文件提示加载树失败，检测没有设置加载树，不知哪里出错。

 你重新设置一次加载树即可。

我重新设置了取消了，重新启动还是提示加载树失败

 

不是设置取消，是勾选一下，确定，重新打开，再取消。