以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]SELECT 语句未找到列名  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=71844)

--  作者:blsu33
--  发布时间:2015/7/19 10:20:00
--  [求助]SELECT 语句未找到列名
红袍老师,
BeforeDeleteDataRow 中的判断 当前的编码规则行 数据已使用的判断
 麻烦老师给看看
Dim dt1 As DataTable=datatables(“配置列")
Dim dr As DataRow
dr=dt1.Find("表名=\'"& e.DataTable.Name &"\' And 列名=\'编码规则\'")
If dr IsNot Nothing Then
    Dim nms() As String=dr("使用表").Split(",")
    Dim lm As String =dr("使用表对应列名")
    Dim cmd As New SQLCommand
    cmd.C
    For i As Integer=0 To nms.Length-1
\'MessageBox.Show(lm)                                     ‘值为”编码规则“
\'MessageBox.Show(e.DataRow("编码规则"))         ’值为010101

        cmd.CommandText ="Select Count(*) Fr om {"& nms(i) &"} Where lm=\'"& e.DataRow("编码规则") &"\'"
        If cmd.ExecuteScalar > 0 Then
            Messagebox.Show("已使用","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            Exit For
        Else
            Continue For
        End If
    Next
End If


.NET Framework 版本:2.0.50727.3053
Foxtable 版本:2014.11.11.1
错误所在事件:
详细错误信息:
列名 \'lm\' 无效。


--  作者:czy
--  发布时间:2015/7/19 10:26:00
--  
是不是要加上连接符

cmd.CommandText ="Select Count(*) Fr om {"& nms(i) &"} Where " & lm & " = \'" & e.DataRow("编码规则") &"\'"
[此贴子已经被作者于2015/7/19 10:25:58编辑过]

--  作者:blsu33
--  发布时间:2015/7/19 10:29:00
--  
奇怪 刚才 也这么试过 不行 现在可以了  谢谢 老师了图片点击可在新窗口打开查看
--  作者:程兴刚
--  发布时间:2015/7/19 10:34:00
--  

总是哪里稍加了一个吧,否则怎么会出尔反尔!

 


--  作者:blsu33
--  发布时间:2015/7/19 10:40:00
--  
呵呵 程版 也在