以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]组合框  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=147637)
--  作者：江南小镇
--  发布时间：2020/3/20 18:41:00
--  [求助]组合框
老师好，组合框字段输入不正确不要报错只提示。想增加一个判断。

Dim tj As String = "Select * Fr om {" & e.sender.text & "}"
Dim c As String
If e.Sender.Text = "入库" Then
    c = ("编号|47|记录日期|71|入库单编号|71|开票日期")
  
Else If e.Sender.Text = "列设置" Then
    c = ("表名|170|设置|88")
End If
Tables("系统_Table6").Fill(tj, "数据库", False)  \'加载Table
Tables("系统_Table6").SetColVisibleWidth(c)
Tables("系统_Table6").ShowCheckBox = True
Dim dz_FilterCol As WinForm.CheckedComboBox = e.Form.Controls("复选4")
dz_FilterCol.Items.Clear
dz_FilterCol.text = Nothing
For Each C1 As Col In Tables(e.Form.Name & "_Table6").Cols
    dz_FilterCol.Items.Add(C1.Name)
Next
--  作者：有点蓝
--  发布时间：2020/3/20 20:26:00
--  
没看懂，截图说明一下
--  作者：江南小镇
--  发布时间：2020/3/20 20:45:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：image 1.png
图片点击可在新窗口打开查看
 
--  作者：有点蓝
--  发布时间：2020/3/20 20:59:00
--  
If DataTables.Contains(e.sender.text) then
其它代码
end if
--  作者：江南小镇
--  发布时间：2020/3/22 9:14:00
--  

老师，我想在代码中加个对话框（表名称不存在）。谢谢老师。

If DataTables.Contains(e.sender.text) then
其它代码
end if
--  作者：有点蓝
--  发布时间：2020/3/22 21:02:00
--  
If DataTables.Contains(e.sender.text) then
其它代码
else
end if