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