- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 按条件加载外部数据 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=66201)
-- 发布时间：2015/4/1 0:22:00
-- 按条件加载外部数据
请问各位老师这样按条件加载外部数据要怎么写代码：
此主题相关图片如下：qq图片20150401000155.jpg
-- 发布时间：2015/4/1 8:38:00
--
和这个是一样的 http://www.foxtable.com/help/topics/1058.htm
你把最后的Tables("订单").Filter = Filter
改为
dataTables("订单").LoadFilter = Filter
-- 发布时间：2015/4/1 8:38:00
--
还要注意一点.SQL数据源日期不能用#号 而是用单引号 \'
-- 发布时间：2015/4/1 9:16:00
--
老师，按照你那样子改加载不了数据，这样子就能加载到，一样的道理是吗？
Tables("主窗口_wtxys").DataTable.LoadFilter = Filter
Tables("主窗口_wtxys").DataTable.Load
还有第二问题是，查询条件选择的是列名，然后在后面输入对应列的内容进行模糊查找，这个代码要怎么写？
此主题相关图片如下：qq图片20150401090518.png
-- 发布时间：2015/4/1 9:17:00
--
不会写，就请上传具体例子
-- 发布时间：2015/4/1 9:19:00
--
1、msgbox(filter) 看一下
2、filter = filter & " And " & 控件.Text & " = \'" & 控件.Text & "\'"
-- 发布时间：2015/4/1 11:20:00
--
谢谢两位老师，用下面这样的代码实现了我的需求！
Dim Filter As String
With e.Form.Controls("StartDate")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "委托日期 >= \'" & .Value & "\'"
End If
End With
With e.Form.Controls("EndDate")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "委托日期 <= \'" & .Value & "\'"
End If
End With
With e.Form.Controls("ComboBox6")
If .Value <> "请选择" Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & e.Form.Controls("ComboBox6").Text & " like \'%" & e.Form.Controls("TextBox16").Text & "%\'"
End If
End With
If Filter > "" Then
Tables("主窗口_wtxys").DataTable.LoadFilter = Filter
Tables("主窗口_wtxys").DataTable.Load
End If