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


  共有3872人关注过本帖树形打印复制链接

主题：窗口下拉窗口获取列表问题
帅哥哟，离线，有人找我吗？
夜点蚊香
 小大  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


加好友 发短信
等级：超级版主 帖子：110497 积分：562369 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/26 14:26:00 [只看该作者]

放到DropDownOpening事件

 回到顶部
帅哥哟，离线，有人找我吗？
夜点蚊香
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

加了个代码模块  学号为空的时候,点击下拉窗口提示先选择学号.
 现在这个代码不起作用,帮忙看一下.  
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110497 积分：562369 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/26 14:57:00 [只看该作者]

判断单元格是否为空使用这个：http://www.foxtable.com/webhelp/topics/0595.htm

 回到顶部
帅哥哟，离线，有人找我吗？
夜点蚊香
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110497 积分：562369 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/26 15:21:00 [只看该作者]

If Tables("请假单_教师").Current.IsNull("请假人学号") Then
    Messagebox.Show("请输入学号!")
tbl.Filter = "false"
Else If txt = "" Then
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询