以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [推荐]分页加载情况下填充重复  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=160219)
--  作者：lgj716330
--  发布时间：2021/1/25 10:26:00
--  [推荐]分页加载情况下填充重复
Dim f As New Filler
f.SourceTable = DataTables("统计表") 
f.SourceCols = "年份,月份,季度,名称,种类" 
f.DataTable = DataTables("商品档案表")
f.DataCols = "年份,月份,季度,名称,种类" 
f.ExcludeExistValue = True 

f.Fill() 

当商品档案表分页加载且存在多页的情况下，f.ExcludeExistValue = True 并没有起作用，怎么解决这个问题
--  作者：有点蓝
--  发布时间：2021/1/25 10:31:00
--  
改为这种：http://www.foxtable.com/webhelp/topics/1533.htm

加一个find查询是否有重复的数据。
--  作者：lgj716330
--  发布时间：2021/5/13 17:45:00
--  
Dim b As New SQLGroupTableBuilder("流量","XJ")
b.C
b.Groups.AddDef("序号") \'
b.Groups.AddDef("日期",DateGroupEnum.None) 
b.Groups.AddDef("年份")
b.Groups.AddDef("月份")
b.Groups.AddDef("部门名称")
b.Groups.AddDef("摘要")
b.Groups.AddDef("现金流量项目编码")
b.Groups.AddDef("银行账户")
b.Totals.AddDef("收入金额")
b.Totals.AddDef("支出金额")
b.Filter = "年份=" & N1 & " and 月份 = " & Y1 & ""
b.Build

Dim Vals As List(of String())
Vals = DataTables("流量").GetValues("序号|日期|年份|月份|部门名称|摘要|现金流量项目编码|银行账户|收入金额|支出金额")
For i As Integer = 0 To Vals.Count - 1
    Dim dr1 As DataRow
    dr1 = DataTables("现金流量明细账").SQLFind("序号= \'" & Vals(i)(0) & "\' And 日期= \'" & Vals(i)(1) & "\' And 年份= \'" & Vals(i)(2) & "\' And 月份= \'" & Vals(i)(3) & "\' And 部门= \'" & Vals(i)(4) & "\' And 摘要= \'" & Vals(i)(5) & "\' And 现金流量项目编号= \'" & Vals(i)(6) & "\' And 银行账户= \'" & Vals(i)(7) & "\' And 收入金额= \'" & Vals(i)(8) & "\' And 支出金额= \'" & Vals(i)(9) & "\'")
    If dr1 Is Nothing Then 
    Dim dr As DataRow = DataTables("现金流量明细账").AddNew()
        dr("序号") = Vals(i)(0)
        dr("日期") = Vals(i)(1)
        dr("年份") = Vals(i)(2)
        dr("月份") = Vals(i)(3)
        dr("部门") = Vals(i)(4)
        dr("摘要") = Vals(i)(5)
        dr("现金流量项目编号") = Vals(i)(6)
        dr("银行账户") = Vals(i)(7)
        dr("收入金额") = Vals(i)(8)
        dr("支出金额") = Vals(i)(9)
    End If
Next

发现还是会重复，不知哪里问题
--  作者：有点蓝
--  发布时间：2021/5/13 20:11:00
--  
……
        dr("支出金额") = Vals(i)(9)
dr.save
    End If
Next