在窗口设置了一个筛选按钮，想点击按钮后，如果条件中的数据没有加载，则追载，代码如下：
Dim Filter As String
With e.Form.Controls("ComboBox2")
If .Value <> "全部" Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "PAYMENT = '" & .Value & "'"
End If
End With
With e.Form.Controls("TextBox4")
If .Value <> "" Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "OO_NUMBER = '" & .Value & "'"
End If
End With
With e.Form.Controls("TextBox5")
If .Value <> "" Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "SHOPING = '" & .Value & "'"
End If
End With
If Filter > "" Then
Dim dr As DataRow
dr = DataTables("ONLINE_ORDER").Find(Filter)
If dr IsNot Nothing
Tables("ONLINE_ORDER").Filter = Filter
Else
DataTables("ONLINE_ORDER").AppendLoad(Filter, False)
Tables("ONLINE_ORDER").Filter = Filter
End If
End If
如果加载的数据中有改行，则可以筛选出改行，如果没有改行 ，则报错，无法加载：
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.11.11.1
错误所在事件：加载[ONLINE_ORDER]失败!
详细错误信息：
在执行命令过程中，发生了一个或多个错误。
ORA-00903: invalid table name
我的表名没有问题啊~~原本设置的是加载，就可以，但是追载就不成
数据源是oracle
加好友 
发短信
Post By：2014/12/26 19:16:00 [只看该作者]
