请教以下代码错误 Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT 合同对象 Fr om {合同} where 项目名称 = '" & Vars("xmmc") & "'"
dt = cmd.ExecuteReader()
Dim s As String = dt.GetComboListString("合同对象")
s = s.Replace("|","','")
's = s.Replace(" ","")
s = "'" & s & "'"
If e.Table.Current("费用对象") In (s)
Forms("待办").Controls("Button14").Visible = True
End If
提示编译错误， If e.Table.Current("费用对象") In (s)
加好友 
发短信
Post By：2015/4/10 13:45:00 [显示全部帖子]
