数据筛选问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：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

窗口控件绑定表格代码：

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是主表，在主表中双击打开的窗口中没有表格

主窗口表的类型为：SQLTable

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

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

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

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

目前主窗口表双击的要打开窗口就只有这一个

表双击打开窗口的代码 “

Forms("adddy").Open

1、意思就是在通过筛选出来的数据，在表中双击打开的时候，在打开窗口中的字段记录不是通过筛选出来的数据字段，而是在窗口加载时的原始数据。不通过筛选的话，在表中双击打开的窗口中的数字就是正确的。

2、还有一个现象是就在筛选数据中双击打开新窗口的时候，主窗口表中的数据会自动切换到数据源中的原始数据，不是筛选后的数据。

[此贴子已经被作者于2023/9/13 15:50:43编辑过]

双击筛选的表，打开窗口的时候，主窗口数据会变成原始没有筛选的数据，请教是什么原因

在筛选出来的数据。双击打开另一个窗口的时候，数据会变回没有筛选的状态，数据会变成原始未筛选状态的数据，请教是什么原因
图片点击可在新窗口打开查看

此主题相关图片如下：33.png

此主题相关图片如下：3.png

[此贴子已经被作者于2023/9/13 16:23:41编辑过]

主题：数据筛选问题