- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]Foxtable如何实现这个表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=17705)
-- 发布时间：2012/3/21 18:41:00
-- [求助]Foxtable如何实现这个表
弄了大半天，还是没有搞出来，水平有限，哎，请帮忙看看，现以EXECL说明一下，
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:说明.xls |
-- 发布时间：2012/3/21 23:07:00
--
做一个按钮（代码如下）：
\'1、先创建临时表： 列名和列的数量自己增加....
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("品名", GetType(String), 32)
dtb.AddDef("流水号", GetType(String), 32)
....
dtb.AddDef("净量", GetType(Double))
....
dtb.AddDef("金额", GetType(Double))
dtb.Build()
MainTable= Tables("统计")
\'2、这样充填相关列的数据： 补齐 来源列 和 接收列 ···
dim f As New Filler
f.SourceTable = DataTables("流水表") \'指定数据来源
f.SourceCols = "品名,流水号,日期时间···" \'指定数据来源列
f.DataTable = DataTables("统计") \'指定数据接收表
f.DataCols = "品名,流水号,日期时间···" \'指定数据接收列
f.Fill() \'填充数据
\'3、在统计表中计算：
For Each r As Row In Tables("统计表").rows
Dim dr As DataRow
dr = DataTables("属性").Find("类别 = \'" & r("类别") & "\'and 开始值 <= " & r("净量") & _
" And 结束值 >= " & r("净量") ) \'条件自己补全！
If dr IsNot Nothing
r("单价") = dr("单价")
r("金额") = r("净量") * r("单价")
End If
Next
当然还有其他方法···