Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]数据查询表问题，搞不明白了？


  共有3320人关注过本帖树形打印复制链接

主题：[求助]数据查询表问题，搞不明白了？
帅哥哟，离线，有人找我吗？
bigeng
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：852 积分：5881 威望：0 精华：0 注册：2014/5/20 17:56:00 		[求助]数据查询表问题，搞不明白了？  发帖心情 Post By：2014/12/30 18:16:00 [只看该作者]

1、外部数据源：data
     外部数据表：datatable
 2、sql查询表：sqldata
疑问：（1）sql查询表已经连接好了，项目里面是否还要用代码连接数据源、  数据表。加载后已经将sqldata定为主表了。
        （2）加载后，所有数据都显示，量很大。如果在查询生成器限制了不加载，但按条件查询的时候无法调出数据，不知如何设置？
        （3）用了加载树，当前数据显示了一部分，查询也只能查询一部分。没有用后台筛选，用代码如何连接后台数据库？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/12/30 19:26:00 [只看该作者]

 看不懂你想说什么。

 

 查询的时候直接用加载啊。

 

Datatables("sqldata").LoadFilter = "第一列 = 2"

Datatables("sqldata").Load
 回到顶部
帅哥哟，离线，有人找我吗？
bigeng
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：852 积分：5881 威望：0 精华：0 注册：2014/5/20 17:56:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
bigeng
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：852 积分：5881 威望：0 精华：0 注册：2014/5/20 17:56:00 		  发帖心情 Post By：2014/12/30 21:06:00 [只看该作者]

甜版，查询完以后显示加载树限定的行数（如限定为10行，则查询出满足条件的显示为10行，如果想显示所有满足条件的，应该如何操作或设置？

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
bigeng
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：852 积分：5881 威望：0 精华：0 注册：2014/5/20 17:56:00 		  发帖心情 Post By：2014/12/30 21:32:00 [只看该作者]

刚才测试了，按车号、收发地点、实发数、实收数查询都没有问题，但是查询开始日期和截止日期，有以下错误提示；'#And' 附近有语法错误。

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/12/30 21:38:00 [只看该作者]

 msgbox(filter) 看一下筛选条件是什么

 回到顶部
帅哥哟，离线，有人找我吗？
bigeng
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：852 积分：5881 威望：0 精华：0 注册：2014/5/20 17:56:00 		  发帖心情 Post By：2014/12/30 21:50:00 [只看该作者]

错误提示如图，之后显示筛选条件。
图片点击可在新窗口打开查看此主题相关图片如下：错误7.jpg
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看此主题相关图片如下：错误提示后显示.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/12/30 21:51:00 [只看该作者]

 and 前后加一个空格。

 回到顶部
总数 16 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询