以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教老师如何吧填充器的ExcludeExistValue属性关掉？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=9555)
--  作者：ypzou
--  发布时间：2011/4/22 15:13:00
--  请教老师如何吧填充器的ExcludeExistValue属性关掉？

因为确实有可能产生除Identify外完全一样的记录，但是填充时相同的记录只能填入一条，向各位老师请教！

 

DataTables("查询表").DataRows.Clear


Dim qs As WinForm.DateTimePicker=e.Form.Controls("qs")
Dim zz As WinForm.DateTimePicker=e.Form.Controls("zz")


Dim k As Date=qs.value
Dim j As Date=zz.value


Dim f As New Filler

f.SourceTable = DataTables("入库记录")
f.Filter="[日期]>=#" & k & "# And [日期]<=#" & j & "# "

f.SourceCols = "系列,名称,型号,规格,编码,数量"


f.DataTable = DataTables("查询表")
f.DataCols = "系列,名称,型号,规格,编码,数量"


f.ExcludeExistValue= False
f.Fill()

[此贴子已经被作者于2011-4-22 15:13:11编辑过]
--  作者：狐狸爸爸
--  发布时间：2011/4/22 15:19:00
--  

这样：

f.ExcludeExistValue= False
f.Distinct= False
 
 
Distinct

逻辑型，是否排除重复内容，默认为True；如果设为False，将不会排除重复内容，也不会排除已有内容和空白值。
--  作者：ypzou
--  发布时间：2011/4/22 15:26:00
--  
原来如此，感谢狐爸！