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