表达式错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表达式错误

共有5936人关注过本帖树形打印复制链接主题：表达式错误

majian

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：1 积分：70 威望：0 精华：0 注册：2015/4/10 13:32:00

表达式错误

Post By：2015/4/10 13:45:00 [只看该作者]

请教以下代码错误

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)

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/4/10 13:52:00 [只看该作者]

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=66608

jiangyong

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：182 积分：1758 威望：0 精华：0 注册：2014/6/7 15:40:00

Post By：2015/4/10 13:52:00 [只看该作者]

Fr om {合同}

From {合同}

[此贴子已经被作者于2015/4/10 13:52:45编辑过]

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2015/4/10 13:55:00 [只看该作者]

今天居然这么多人问这个问题，你是从哪里学到这样的写法？

jiangyong

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：182 积分：1758 威望：0 精华：0 注册：2014/6/7 15:40:00

Post By：2015/4/10 13:59:00 [只看该作者]

s="A|B|C|D"

s1=

if d in ('A','B','C','D') then

cyrollin

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00

Post By：2015/4/10 14:01:00 [只看该作者]

也可能是一个人用不同的 forum ID, 呵呵。。。。。。。。

狐狸爸爸

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2015/4/10 14:02:00 [只看该作者]

以下是引用jiangyong在2015/4/10 13:59:00的发言：
s="A|B|C|D"

s1=

if d in ('A','B','C','D') then

这段话出在哪里，是谁教你的？

[此贴子已经被作者于2015/4/10 14:02:40编辑过]

狐狸爸爸

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2015/4/10 14:08:00 [只看该作者]

正确的代码：

Dim cmd As New SQLCommand
cmd.Connection Name = ""数据源
cmd.CommandText = "SELECT Count([_Identify]) Fro m {合同} where 项目名称 = '" & Vars("xmmc") & "' And 合同对象 = '" & & e.Table.Current("费用对象") & "'"
If cmd.ExecuteScalar > 0 Then
Forms("待办").Controls("Button14").Visible = True
End If

[此贴子已经被作者于2015/4/10 14:08:05编辑过]

狐狸爸爸

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2015/4/10 14:13:00 [只看该作者]

还可以参考我在另一个帖子的回复：

dim s as string = "123,124,235"

dim vs() as string = s.split(",")

for each v as string in vs

if v = e.table.current("列名") then

执行代码

exit for

end if

in是表达式和sql语句的用法，不是代码的用法

[此贴子已经被作者于2015/4/10 14:13:26编辑过]

下一主题 >> << 上一主题

主题：表达式错误