- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]数据查询表问题，搞不明白了？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=62379)
-- 发布时间：2014/12/30 18:16:00
-- [求助]数据查询表问题，搞不明白了？
1、外部数据源：data
外部数据表：datatable
2、sql查询表：sqldata
疑问：（1）sql查询表已经连接好了，项目里面是否还要用代码连接数据源、 数据表。加载后已经将sqldata定为主表了。
（2）加载后，所有数据都显示，量很大。如果在查询生成器限制了不加载，但按条件查询的时候无法调出数据，不知如何设置？
（3）用了加载树，当前数据显示了一部分，查询也只能查询一部分。没有用后台筛选，用代码如何连接后台数据库？
-- 发布时间：2014/12/30 19:26:00
--
看不懂你想说什么。
查询的时候直接用加载啊。
Datatables("sqldata").LoadFilter = "第一列 = 2"
Datatables("sqldata").Load
-- 发布时间：2014/12/30 20:54:00
--
查询表设置的不加载任何数据，查询按钮代码如下（单击后只是显示加载树限制的行数，如果想在当前表里面显示满足查询条件的所有数据，如何设置）：
Dim Filter As String
Dim trn As RibbonMenu.TextBox = RibbonTabs("功能区2").Groups("功能组5").Items("trucknum")
Dim sfa As RibbonMenu.TextBox = RibbonTabs("功能区2").Groups("功能组5").Items("sfaddress")
Dim sfn As RibbonMenu.TextBox = RibbonTabs("功能区2").Groups("功能组5").Items("sfnum")
Dim ssn As RibbonMenu.TextBox = RibbonTabs("功能区2").Groups("功能组5").Items("ssnum")
Dim std As RibbonMenu.DatePicker= RibbonTabs("功能区2").Groups("功能组5").Items("startdate")
Dim edd As RibbonMenu.DatePicker = RibbonTabs("功能区2").Groups("功能组5").Items("enddate")
Dim ry As RibbonMenu.CheckBox = RibbonTabs("功能区2").Groups("功能组5").Items("rdoyifu")
Dim rw As RibbonMenu.CheckBox = RibbonTabs("功能区2").Groups("功能组5").Items("rdoweifu")
\'Dim sfnn As RibbonMenu.NumericBox = RibbonTabs("功能区1").Groups("功能组5").Items("sfnn")
\'Dim ssnn As RibbonMenu.NumericBox = RibbonTabs("功能区1").Groups("功能组5").Items("ssnn")
With trn
If .text <> Nothing Then
Filter = "车号= \'" & .text & "\'"
End If
End With
With sfa
If .text <> Nothing Then
If Filter > "" Then
Filter = Filter & "And "
End If
Filter = Filter & "收发地点 like \'%" & .text & "%\'"
End If
End With
With sfn
If .text <> Nothing Then
If Filter >"" Then
Filter = Filter & "And "
End If
Filter = Filter & "实发数= " & .text
End If
End With
With ssn
If .text <> Nothing Then
If Filter >"" Then
Filter = Filter & "And "
End If
Filter = Filter & "实收数= " & .text
End If
End With
With std
If .Value <> Nothing Then
If Filter >"" Then
Filter = Filter & "And "
End If
Filter = Filter & "日期 >= #" & .Value & "#"
Vars("startdate") =.Value
End If
End With
With edd
If .Value <> Nothing Then
If Filter >"" Then
Filter = Filter & "And "
End If
Filter = Filter & "日期 <= #" & .Value & "#"
Vars("enddate") =.Value
End If
End With
If ry.Checked = True \' 如果付款状态选择了"已付"
If Filter >"" Then
Filter = Filter & "And "
End If
Filter = Filter & "运费结算实付日期 is not null"
End If
If rw.Checked = True \' 如果付款状态选择了"未付"
If Filter >"" Then
Filter = Filter & "And "
End If
Filter = Filter & "运费结算实付日期 Is Null"
End If
If Filter > "" Then
DataTables("运费查询").LoadFilter = Filter
DataTables("运费查询").load
‘Tables("运费查询").Filter = Filter
End If
[此贴子已经被作者于2014-12-30 20:59:38编辑过]
-- 发布时间：2014/12/30 20:57:00
--
If Filter > "" Then
DataTables("运费查询").LoadFilter = ""
DataTables("运费查询").load
Tables("运费查询").Filter = Filter
End If
改成
If Filter > "" Then
DataTables("运费查询").LoadFilter = Filter
DataTables("运费查询").load
End If
-- 发布时间：2014/12/30 21:06:00
--
甜版，查询完以后显示加载树限定的行数（如限定为10行，则查询出满足条件的显示为10行，如果想显示所有满足条件的，应该如何操作或设置？
-- 发布时间：2014/12/30 21:13:00
--
If Filter > "" Then
DataTables("运费查询").LoadTop = "100 Percent"
DataTables("运费查询").LoadFilter = Filter
DataTables("运费查询").load
End If
[此贴子已经被作者于2014-12-30 21:12:43编辑过]
-- 发布时间：2014/12/30 21:32:00
--
刚才测试了，按车号、收发地点、实发数、实收数查询都没有问题，但是查询开始日期和截止日期，有以下错误提示；\'#And\' 附近有语法错误。
-- 发布时间：2014/12/30 21:38:00
--
msgbox(filter) 看一下筛选条件是什么
-- 发布时间：2014/12/30 21:50:00
--
错误提示如图，之后显示筛选条件。
此主题相关图片如下：错误7.jpg
此主题相关图片如下：错误提示后显示.png
-- 发布时间：2014/12/30 21:51:00
--
and 前后加一个空格。