不好意思,主要是在帮助中看到“filler”的用法,想使用。
昨晚后来才看明白,“filler”是加载数据至某表,而不是“添加”。
现在我把增加数据的代码修改了,可以实按条件把外部数据源的数据“添加”至“测试表”:
'增加新数据
'先把数据加载至表b
DataTables("表b").Fill("Select * From {远程} where [datetime] >= #" & StartDate & "# And [datetime] < #" & EndDate & "#" , "测试",False)
'再接受数据
Dim f As New Filler
f.SourceTable = DataTables("表b") '指定数据来源
f.SourceCols = "jqno,datetime" '指定数据来源列
f.DataTable = DataTables("测试表") '指定数据接收表
f.DataCols = "jqno,datetime" '指定数据接收列
f.Fill() '填充数据
MessageBox.Show("接收数据结束")
DataTables("测试表").Save
[此贴子已经被作者于2012-2-14 9:07:25编辑过]