标题：请教老师如何吧填充器的ExcludeExistValue属性关掉？

1楼

ypzou 发表于：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楼

狐狸爸爸 发表于：2011/4/22 15:19:00

这样：

f.ExcludeExistValue= False
f.Distinct= False

Distinct

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

3楼

ypzou 发表于：2011/4/22 15:26:00

原来如此，感谢狐爸！

共3 条记录, 每页显示 10 条, 页签: [1]