- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 如何排除相同规格统计显示 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=44266)
-- 发布时间：2013/12/26 17:10:00
-- 如何排除相同规格统计显示
这代码排除了重复值，怎么还是显示重复值呢？
DataTables("cpyb").DataRows.Clear
Dim f As New Filler
f.SourceTable = DataTables("cpmx")
f.DataTable = DataTables("cpyb")
f.ExcludeExistValue = True
f.Distinct = True \'排除重复值
\'f.Filter = "月份 = \'" & s & "\'"
f.Fill()
For Each dr As DataRow In DataTables("cpyb").DataRows
Dim s1 As String = "产品名称 = \'" & dr("产品名称") & "\'"
dr("入库数量") = DataTables("cpmx").Compute("Sum(入库数量)",s1)
dr("出库数量") = DataTables("cpmx").Compute("Sum(出库数量)",s1)
dr("当前库存") = dr("入库数量") - dr("出库数量")
Next
此主题相关图片如下：1.jpg
-- 发布时间：2013/12/26 17:15:00
--
Dim f As New Filler
f.SourceTable = DataTables("表A") \'指定数据来源
f.SourceCols = "第一列,第二列,第三列" \'指定数据来源列
f.DataTable = DataTables("表B") \'指定数据接收表
f.DataCols = "第一列,第二列,第三列" \'指定数据接收列
f.Fill() \'填充数据
刚刚经过测试没有问题,可能你字符串中包含空格, 在电脑中 "123" 和 "123 " 是两个不一样的东西.
-- 发布时间：2013/12/26 20:28:00
--
排除重复值，是比较全部列的内容的。你最好指定一下要填充的列，看2楼代码。