主题：[求助]如何把 txt文档的汇总数据 导入到 子表中

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

点击浏览该文件:2012-10-15.txt

 

 

 

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

点击浏览该文件:管理项目2.table

 

附件有一TXT 文档  中间   的  2,3 列 为 需要    汇总导出的数据列 

 

 

求助 如何在 foxtable  在不生成  DATATABLE 的情况下 导入 汇总数据.

 

求出 第2列  相同 值  ,第3列汇总的 总数量

 

 

        Dim cs() As String = rs(i).Split(",")
        If cs.Length = 4 Then
            Dim dr As DataRow = DataTables("出库临时表").Addnew()
            dr("日期") = cs(0)
            dr("条码") = cs(1)
            dr("数量") = cs(2)
            dr("时间") = cs(3)
        End If
    Next
End If
Tables("出库临时表").ResumeRedraw

Dim g As New GroupTableBuilder("出货统计", DataTables("出库临时表"))
g.Groups.AddDef("条码")
g.Groups.AddDef("数量")
g.Totals.AddDef("数量")
g.Build()

For Each dr1 As DataRow In DataTables("出库临时表").DataRows
Dim dr2 As Row = Tables("出库情况.进出明细").AddNew
Dim dr3 As DataRow = DataTables("部品明细").Find("条码 = '" & dr1("条码") & "'")
'dr2("条码")= dr1("条码")
dr2("品番") = dr3("品番")
dr2("品名") = dr3("品名")
dr2("收容数") = dr3("收容数")
dr2("单位") = dr3("单位")
dr2("总数量") = dr1("数量") * dr3("收容数")
Next
DataTables.Save() '保存所有表
If DataTables.Contains("出货统计") '如果存在统计表1
    DataTables.Delete("出货统计") '则删除之
End If

 

我用上边的帮助导出的代码  但  临时表 - 出库临时表 导出不到数据!

 没看懂什么意思。

 求助 如何在 foxtable  在不生成  DATATABLE 的情况下 导入 汇总数据  ---- 这个直接合并不行么。

http://www.foxtable.com/help/topics/0187.htm

老师 我想用一个 按键实现  效果

 

高速导入 , 没 合并汇总的功能哦   我想 实现  TXT文档 里面 2 ,3 列  汇总以后 再导入.

 

条件是   按第2列 的相同内容  合并 求和 第3列 的数据    然后 再导入

 

 

 

由于 我 仓库 是用 盘点机作业  导出的数据 是一条一条的记录

 

我想 把这些记录 汇总 作为 出仓数.   在导入到  作为  当天的 出库数.

 不建议在txt里汇总导入（因为操作文本的统计会麻烦很多）

 思路是：导入到狐表，然后统计，然后写入到数据表里去。

老师  我    已经生成  导入了  狐表  ,然后生成1个 统计表 

 

但生成的统计表是临时表

我用  以下下 代码  代入到  我要的  出库表里面.

 

出库统计 是   用TXT  文档生成的  临时表

 

For Each dr1 As DataRow In DataTables("出库统计").DataRows
Dim dr2 As Row = Tables("出库情况.进出明细").AddNew
Dim dr3 As DataRow = DataTables("部品明细").Find("条码 = '" & dr1("条码") & "'")
'dr2("条码")= dr1("条码")
dr2("品番") = dr3("品番")
dr2("品名") = dr3("品名")
dr2("收容数") = dr3("收容数")
dr2("单位") = dr3("单位")
dr2("总数量") = dr1("数量") * dr3("收容数")
Next
DataTables.Save() '保存所有表
If DataTables.Contains("出货统计") '如果存在统计表1
    DataTables.Delete("出货统计") '则删除之
End If

 

在导入的时候 就报错,    附件为 报错的图片   ,老师帮忙看下 如何操作才行,谢谢咯

大概这样吧，看看行不行。接下来的，你没有提供数据，我不知道怎么做。

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

点击浏览该文件:管理项目2.table

林老师 可以了 接下来我自己解决就行  

 

太谢谢了 .