以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]判断是否存在指定名称的数据源的代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=137658)

--  作者:hanzhang98
--  发布时间:2019/7/12 7:55:00
--  [求助]判断是否存在指定名称的数据源的代码
老师好。判断是否存在指定名称的数据源的代码不对,请老师帮助修改。谢谢。

Dim ywjc As String = dr("简称")  
If Contains(ywjc) = False Then  \'如果不存在  
    Messagebox.show("你指定的数据源不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

--  作者:有点蓝
--  发布时间:2019/7/12 8:49:00
--  
If Connections.Contains(ywjc) = False Then