| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 窗口下拉窗口获取列表问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=158604) |
| -- 作者：夜点蚊香 -- 发布时间：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 请指教.
|
| -- 作者：有点蓝 -- 发布时间：2020/11/26 14:26:00 -- 放到DropDownOpening事件 |
| -- 作者：夜点蚊香 -- 发布时间：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 加了个代码模块 学号为空的时候,点击下拉窗口提示先选择学号. 现在这个代码不起作用,帮忙看一下. |
| -- 作者：有点蓝 -- 发布时间：2020/11/26 14:57:00 -- 判断单元格是否为空使用这个：http://www.foxtable.com/webhelp/topics/0595.htm |
| -- 作者：夜点蚊香 -- 发布时间：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
|
| -- 作者：有点蓝 -- 发布时间：2020/11/26 15:21:00 -- If Tables("请假单_教师").Current.IsNull("请假人学号") Then Messagebox.Show("请输入学号!") tbl.Filter = "false" Else If txt = "" Then
|