红袍老师，
自定义函数Usercoming 执行到标颜色的部分 后面不执行了，错误提示如附件。
Dim ipdz As String =args(0)
Dim e As object =args(1)
Dim s As String =""
'遍历当前属于此数据源的表
For Each dt As DataTable In DataTables
If dt.C Then
s += "|" & dt.name
End If
Next
s = s.Trim("|")
Dim s1 As String="Provider=SQLOLEDB.1;Password=000211;Persist Security Info=True;User ID=sa;Initial Catalog=Maxtrue;Data Source=" & ipdz '家
If Connections.TryConnect(s1)= False Then
MessageBox.Show("无法连接服务器,请检查录入是否正确!")
'本地连接
Else
If S<>"" Then
'Dim s1 As String="Provider=SQLOLEDB.1;Password=000211;Persist Security Info=True;User ID=sa;Initial Catalog=MAXTRUE_1.1;Data Source=" & ipdz '家
DataTables.Unload(s)
Connections.Delete("maxtrue")
MessageBox.Show(2)
Connections.add("maxtrue",s1)
DataTables.load(s)
Dim dt1 As DataTable
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Select * F rom {AS001用户}"
dt1= cmd.ExecuteReader
Return True
Else
MessageBox.Show("无法连接服务器,请重新启动尝试!")
Syscmd.Project.Exit(False)
End If
End If
此主题相关图片如下：qq图片20151115195144.png
[此贴子已经被作者于2015/11/15 19:54:44编辑过]
加好友 
发短信
Post By：2015/11/15 18:37:00 [只看该作者]
