以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 出错了  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=150439)
--  作者：leoli
--  发布时间：2020/5/29 22:55:00
--  [求助] 出错了

老师，增加了以下黄色的，就出现错误了，请指导一下，谢谢。

For Each r As Row In Tables("PriceNew")
    
    If r IsNot Nothing Then
        Dim ld As String
        Dim cmd As New SQLCommand
        cmd.C
       
        cmd.CommandText = "Se lect top 1 Fname,FItemID From {t_ICItemCore} Where FNumber = \'" & r("PartNo") & "\'"
        ld = cmd.ExecuteScalar()
       
        If LD IsNot Nothing Then
            r("PartDesc") = ld
            r("FItemID") = ld
        Else
           
            r("PartDesc") = "无记录"
           
        End If
    End If
Next
--  作者：sloyy
--  发布时间：2020/5/30 3:34:00
--  
cmd.c 是什么鬼?出错信息是什么?你确定表里有FItemID 字段?名字没写错?
--  作者：leoli
--  发布时间：2020/5/30 7:49:00
--  
没有写错
--  作者：有点蓝
--  发布时间：2020/5/30 9:29:00
--  
还是仔细看看帮助吧：http://www.foxtable.com/webhelp/topics/0696.htm

ExecuteScalar

用于执行返回单个值的命令，例如：


ExecuteValues

用于执行一次返回多个值的命令，例如：

Dim cmd As new SQLCommand 
cmd.CommandText = "Select 部门,职务 from {员工} Where 姓名 = \'王伟\'"
cmd.ConnectionName = "数据源名称"
Dim Values = cmd.ExecuteValues
If Values.Count > 0 Then
    Output.show(Values("部门"))
    Output.show(Values("职务"))
End If
--  作者：leoli
--  发布时间：2020/5/30 10:07:00
--  
谢谢。