以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  数据筛选问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=188290)

--  作者:riyuan
--  发布时间: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
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2023/9/12 17:26:00
--  
窗口控件怎么绑定表格的?绑定的是主表?改为绑定窗口表
--  作者:riyuan
--  发布时间: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
--  发布时间:2023/9/12 20:07:00
--  
主窗口表的类型为 :SQLTable


--  作者:有点蓝
--  发布时间:2023/9/12 20:15:00
--  
1楼代码放在哪个事件?3楼代码又是在那个事件?
--  作者:riyuan
--  发布时间:2023/9/12 20:27:00
--  
1楼代码放在主表窗口的筛选按钮click事件中,3楼代码放在要打开窗口的afterload事件中

[此贴子已经被作者于2023/9/12 20:32:06编辑过]

--  作者:riyuan
--  发布时间:2023/9/12 20:32:00
--  
1楼代码放在主表窗口的筛选按钮click事件中,3楼代码放在要打开窗口的窗口afterload事件中


--  作者:riyuan
--  发布时间:2023/9/12 20:36:00
--  
有主窗口刚打开时,双击主窗口表中的任意记录,在打开的窗口中(3楼代码)是可以正常显示双击当前记录字段的,但只要在主窗口中经过筛选后的记录,双击打开的窗口就不能正常显示当前双击记录的字段。
--  作者:有点蓝
--  发布时间:2023/9/12 21:50:00
--  
主窗口表双击打开其它的窗口的代码发上来看看
--  作者:riyuan
--  发布时间:2023/9/13 8:46:00
--  
目前主窗口表双击的要打开窗口就只有这一个
表双击打开窗口的代码 “
Forms("adddy").Open