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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口下拉窗口获取列表问题

共有3930人关注过本帖树形打印复制链接主题：窗口下拉窗口获取列表问题

夜点蚊香

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：641 积分：4920 威望：0 精华：0 注册：2020/4/15 19:53:00

窗口下拉窗口获取列表问题 发帖心情

Post By：2020/11/26 14:12:00 [显示全部帖子]

打开窗口AfterLoad事件使用下面的代码

每次打开的时候根据请假人学号改变.请假人学号是通过其他列表方式获取到的.

现在的问题,第一次选择后可以下面代码可以正确显示,请假人学号更改以后,下面的代码不显示新学号的内容.

Dim txt As String = "未开课"

Dim tbl As Table = Tables("已排课教师用窗口_课程列表")

Dim txt1 As String = Tables("请假单_教师").Current("请假人学号")

If txt = "" Then

tbl.Filter = ""

Else

txt = "'%" & txt & "%'"

txt1 = "'%" & txt1 & "%'"

tbl.Filter = "签到状态 Like " & txt & " And 学号 Like " & txt1

End If

请指教.

夜点蚊香

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：641 积分：4920 威望：0 精华：0 注册：2020/4/15 19:53:00

另一个问题. 发帖心情

Post By：2020/11/26 14:55:00 [显示全部帖子]

如果请假人学号为空,下拉框不起作用,帮忙看一下代码.

应该放到什么地方.

Dim txt As String = "未开课"

Dim tbl As Table = Tables("已排课教师用窗口_课程列表")

Dim txt1 As String = Tables("请假单_教师").Current("请假人学号")

If txt1 Is Nothing Then

msgbox("请先选择学号")

Return

Else If txt = "" Then

tbl.Filter = ""

Else

txt = "'%" & txt & "%'"

txt1 = "'%" & txt1 & "%'"

tbl.Filter = "签到状态 Like " & txt & " And 学号 Like " & txt1

End If

加了个代码模块学号为空的时候,点击下拉窗口提示先选择学号.

现在这个代码不起作用,帮忙看一下.

夜点蚊香

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：641 积分：4920 威望：0 精华：0 注册：2020/4/15 19:53:00

帮忙看一下代码,请输入对话框可以显示信息.列表还是能够显示 发帖心情

Post By：2020/11/26 15:14:00 [显示全部帖子]

帮忙看一下代码,请输入对话框可以显示信息.列表还是能够显示请指教

Dim txt As String = "未开课"

Dim tbl As Table = Tables("已排课教师用窗口_课程列表")

Dim txt1 As String = Tables("请假单_教师").Current("请假人学号")

If Tables("请假单_教师").Current.IsNull("请假人学号") Then

Messagebox.Show("请输入学号!")

Else If txt = "" Then

tbl.Filter = ""

Else

txt = "'%" & txt & "%'"

txt1 = "'%" & txt1 & "%'"

tbl.Filter = "签到状态 Like " & txt & " And 学号 Like " & txt1

End If

下一主题 >> << 上一主题

主题：窗口下拉窗口获取列表问题