- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]对话框 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=117053)
-- 发布时间：2018/4/4 19:44:00
-- [求助]对话框
老师，我要在下面代码中加入一个对话框代码，问题是在没有选中“交流管理窗口”中的“ListBox1”里的字段时点击打开“银行账号信息查看”窗口按钮会关闭窗口。
我是要让他提示你没有先中ListBox1控件中的字段请重新操作先定后再点击按钮。
If e.Form.Controls("ListBox1").Value <> ""
Dim txt As String = e.Form.Controls("ListBox1").Value
Select Case Vars("YN1")
Case "银行卡管理"
Vars("YN2") = Functions.Execute("MailStr",txt,"MailList.Txt")
Forms("银行账号信息查看").Open()
End Select
End If
Forms("交流管理窗口").Close
-- 发布时间：2018/4/4 19:55:00
--
If e.Form.Controls("ListBox1").Value <> ""
Dim txt As String = e.Form.Controls("ListBox1").Value
Select Case Vars("YN1")
Case "银行卡管理"
Vars("YN2") = Functions.Execute("MailStr",txt,"MailList.Txt")
Forms("银行账号信息查看").Open()
End Select
Else
msgbox("没有选中")
return
End If
Forms("交流管理窗口").Close
-- 发布时间：2018/4/4 21:00:00
--
老师，能改变对话框的样式吗？
此主题相关图片如下：图像 4.png
-- 发布时间：2018/4/4 21:15:00
--
参考
http://www.foxtable.com/webhelp/scr/0326.htm
-- 发布时间：2018/4/4 22:18:00
--
谢谢老师