Tables("查询统计_Table1").SetColVisibleWidth("流水号|100|日期|80|商品编号|100|商品名称|90|型号|120|规格|120|数量|60|供货商|100|经办人|100")
DataTables("查询").DataRows.Clear
Dim rq1 As WinForm.DateTimePicker=e.Form.Controls("dt1")
Dim rq2 As WinForm.DateTimePicker=e.Form.Controls("dt2")
Dim k As Date=rq1.value
Dim j As Date=rq2.value
Dim f As New Filler
f.SourceTable = DataTables("业务") \'指定数据来源
f.DataTable = DataTables("查询") \'指定数据接收表
f.Filter="[日期]>=#" & k & "# And [日期]<=#" & j & "# and [入帐]=1"
f.Fill() \'填充数据
For Each r As Row In Tables("查询").Rows
r("进货价格")=0
Next