Tables("PDA蓝牙打印机统计表_Table1").SetColVisibleWidth("入库时间|98|出库时间|98|转换时间|98|大区|98|分子公司|98|片区|98|部门|98|品牌|98|PDA编码|98|SIM编码|98|手机号码|98|月租费用|98|充电器|98|电池|98|数据线|98|背包|98|详细地址|98|联系电话|98|领用人|98|管理员|98|职位|98|备注|98")
DataTables("PDA蓝牙打印机出入库").DataRows.Clear
Dim bm1 As WinForm.TextBox=e.Form.Controls("dt1")

Dim f As New Filler
f.SourceTable = DataTables("PDA蓝牙打印机出入库") \'指定数据来源
f.DataTable = DataTables("PDA蓝牙打印机统计表") \'指定数据接收表
f.Fill() \'填充数据
For Each r As Row In Tables("PDA蓝牙打印机统计表" ).Rows
 Next

查询时数据全清零怎么回事？