[浏览完整版]
标题：数据筛选问题
1楼
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
此主题相关图片如下：1.png2楼
有点蓝 发表于：2023/9/12 17:26:00窗口控件怎么绑定表格的？绑定的是主表？改为绑定窗口表
3楼
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是主表，在主表中双击打开的窗口中没有表格
4楼
riyuan 发表于：2023/9/12 20:07:00主窗口表的类型为 ：SQLTable
5楼
有点蓝 发表于：2023/9/12 20:15:001楼代码放在哪个事件？3楼代码又是在那个事件？
6楼
riyuan 发表于：2023/9/12 20:27:001楼代码放在主表窗口的筛选按钮click事件中，3楼代码放在要打开窗口的afterload事件中
[此贴子已经被作者于2023/9/12 20:32:06编辑过]
7楼
riyuan 发表于：2023/9/12 20:32:001楼代码放在主表窗口的筛选按钮click事件中，3楼代码放在要打开窗口的窗口afterload事件中
8楼
riyuan 发表于：2023/9/12 20:36:00有主窗口刚打开时，双击主窗口表中的任意记录，在打开的窗口中（3楼代码）是可以正常显示双击当前记录字段的，但只要在主窗口中经过筛选后的记录，双击打开的窗口就不能正常显示当前双击记录的字段。
9楼
有点蓝 发表于：2023/9/12 21:50:00主窗口表双击打开其它的窗口的代码发上来看看
10楼
riyuan 发表于：2023/9/13 8:46:00目前主窗口表双击的要打开窗口就只有这一个
表双击打开窗口的代码 “
Forms("adddy").Open