Foxtable(狐表) → 用户栏目 → 专家坐堂 → 数据筛选问题


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

主题：数据筛选问题
帅哥哟，离线，有人找我吗？
riyuan
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：404 积分：3080 威望：0 精华：0 注册：2013/4/9 11:49:00 		数据筛选问题  发帖心情 Post By：2023/9/12 17:11:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看
筛选代码：
Dim Filter As String
'    Dim t2 As Table = Tables("main_table1")
'             Dim n As Integer = t2.Rows.Count
With e.Form.Controls("nl1")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If 
        Filter = Filter & "出生日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("nl2")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If 
        Filter = Filter & "出生日期 <= #" & .Value & "#"
    End If
End With
With e.Form.Controls("combobox2")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If 
        Filter = Filter & "学历 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("combobox3")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If 
        Filter = Filter & "性别 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("combobox4")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If 
        Filter = Filter & "所属党组织 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("combobox1")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If 
        Filter = Filter & "当前身份 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("combobox5")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If 
        Filter = Filter & "在册状态 = '" & .Value & "'"
    End If
End With
If filter > "" Then
    Tables("main_table1").Filter = Filter
    Tables("main_table1").Focus 
    Else
         e.Form.Controls("label20").Text = "数据库中不存在该党员信息, 请更改查询条件!"
End If
请教在窗口的load事件中加载的表，在双击选中的行后，在修改窗口会正常显示选中人员的记录，一旦通过筛选的记录，在双击选中的行后，在修改窗口不会正常显示选中人员的记录，而且表也是会重新加载记录
图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110769 积分：563777 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/9/12 17:26:00 [只看该作者]

窗口控件怎么绑定表格的？绑定的是主表？改为绑定窗口表

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


加好友 发短信
等级：一尾狐 帖子：404 积分：3080 威望：0 精华：0 注册：2013/4/9 11:49:00 		  发帖心情 Post By：2023/9/12 20:05:00 [只看该作者]

窗口控件绑定表格代码： 
With e.Form
.Controls("bh").Text = Tables("main_table1").Current("党员编号")
.Controls("xm").Text = Tables("main_table1").Current("姓名")
.Controls("xb1").Text = Tables("main_table1").Current("性别")
End With
其中main_table1是主表，在主表中双击打开的窗口中没有表格
 回到顶部
帅哥哟，离线，有人找我吗？
riyuan
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：404 积分：3080 威望：0 精华：0 注册：2013/4/9 11:49:00 		  发帖心情 Post By：2023/9/12 20:07:00 [只看该作者]

主窗口表的类型为 ：SQLTable
 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110769 积分：563777 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/9/12 20:15:00 [只看该作者]

1楼代码放在哪个事件？3楼代码又是在那个事件？

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


加好友 发短信
等级：一尾狐 帖子：404 积分：3080 威望：0 精华：0 注册：2013/4/9 11:49:00 		  发帖心情 Post By：2023/9/12 20:27:00 [只看该作者]

1楼代码放在主表窗口的筛选按钮click事件中，3楼代码放在要打开窗口的afterload事件中

[此贴子已经被作者于2023/9/12 20:32:06编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
riyuan
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：404 积分：3080 威望：0 精华：0 注册：2013/4/9 11:49:00 		  发帖心情 Post By：2023/9/12 20:32:00 [只看该作者]

1楼代码放在主表窗口的筛选按钮click事件中，3楼代码放在要打开窗口的窗口afterload事件中


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


加好友 发短信
等级：一尾狐 帖子：404 积分：3080 威望：0 精华：0 注册：2013/4/9 11:49:00 		  发帖心情 Post By：2023/9/12 20:36:00 [只看该作者]

有主窗口刚打开时，双击主窗口表中的任意记录，在打开的窗口中（3楼代码）是可以正常显示双击当前记录字段的，但只要在主窗口中经过筛选后的记录，双击打开的窗口就不能正常显示当前双击记录的字段。

 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110769 积分：563777 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/9/12 21:50:00 [只看该作者]

主窗口表双击打开其它的窗口的代码发上来看看

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


加好友 发短信
等级：一尾狐 帖子：404 积分：3080 威望：0 精华：0 注册：2013/4/9 11:49:00 		  发帖心情 Post By：2023/9/13 8:46:00 [只看该作者]

目前主窗口表双击的要打开窗口就只有这一个
表双击打开窗口的代码 “
Forms("adddy").Open
 回到顶部
总数 18 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.08203 秒, 4 次数据查询