Foxtable(狐表)用户栏目专家坐堂 → 请教老师如何吧填充器的ExcludeExistValue属性关掉?


  共有11885人关注过本帖树形打印复制链接

主题:请教老师如何吧填充器的ExcludeExistValue属性关掉?

帅哥哟,离线,有人找我吗?
ypzou
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:11 积分:213 威望:0 精华:0 注册:2011/3/18 11:15:00
请教老师如何吧填充器的ExcludeExistValue属性关掉?  发帖心情 Post By:2011/4/22 15:13:00 [只看该作者]

因为确实有可能产生除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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/4/22 15:19:00 [只看该作者]

这样:

f.ExcludeExistValue= False
f.Distinct= False
 
 
Distinct

逻辑型,是否排除重复内容,默认为True;如果设为False,将不会排除重复内容,也不会排除已有内容和空白值。


 回到顶部
帅哥哟,离线,有人找我吗?
ypzou
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:11 积分:213 威望:0 精华:0 注册:2011/3/18 11:15:00
  发帖心情 Post By:2011/4/22 15:26:00 [只看该作者]

原来如此,感谢狐爸!

 回到顶部