请老师帮忙看下··哪里写错了·~~~~
我想应用复选框选择好的·才导入到表B··
~~
结果是全部导进去了·
此主题相关图片如下:1.jpg
Dim f As New Filler
f.SourceTable = DataTables("表A") '指定数据来源
f.SourceCols = "日期,名称,型号,材质" '指定数据来源列
f.DataTable = DataTables("表B") '指定数据接收表
f.DataCols = "日期,名称,型号,材质" '指定数据接收列
f.Filter = "日期 = #" & Date.Today & "# and 物料属性 = '外购'"
Dim rs As List(of Row) = Tables("表A").GetCheckedRows()
For Each r As Row In rs
r.Checked = True
Next
f.Fill() '填充数据
[此贴子已经被作者于2018/9/12 16:28:23编辑过]