主题：按钮代码报错问题

做个例子发上来。

打开命令窗口，然后单击按钮：

 

1 DataTables("fa piao发货出库跟踪表").DataRows.clear()
2 Dim SQL As String
3 SQL = " select * from V_FPFHCK_FOXTABLE "
4 SQL = SQL & " WHERE [发货日期] BETWEEN '" & replace(e.Form.Controls("DateTimePicker1").text,"-","") & "'"
5 SQL = SQL & " AND '" & replace(e.Form.Controls("DateTimePicker2").text,"-","") & "'"
6 SQL = SQL & " AND ([发货合同供方编号] in (select list from getinstr('" & e.Form.Controls("TextBox1").value & "'))"
7 SQL = SQL & "OR '" & e.Form.Controls("TextBox1").value & "' = '' )"
8 SQL = SQL & " AND ([发货合同购方编号] IN(SELECT LIST FROM GETINSTR('" & e.Form.Controls("TextBox3").value & "'))"
9 SQL = SQL & "OR '" & e.Form.Controls("TextBox3").value & "' = '' )"
10 Output.show(SQL)
11 DataTables("fa piao发货出库跟踪表").Fill(SQL,"生产机",True)

 

看看第一次和第二次合成的SQL语句有何不同。

看不出来原因，把他整成access数据源发上来测试看看。

兄弟，Fill会自动清除以前数据的，所以你的这一行代码是多余的：

 

DataTables("表A").DataRows.clear()

 

删除吧。

我测试正常呢

按道理不会这样的，应该是和成的语句有问题。

你将第一次合成的语句复制到foxtable的sql执行窗口执行看看。

重新打开项目，不要单击按钮，直接复制到SQL窗口执行，看看是不是也是第一次出错，第二次正常。

不能理解，将V_FPFHCK_FOXTABLE 换个简单点的名字，例如“dceb”看看