以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  select 语句运行提示列名无效 何解？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=151576)
--  作者：李孝春
--  发布时间：2020/6/28 16:05:00
--  select 语句运行提示列名无效 何解？
这部分代码是否有误，运行时出现末尾错误提示  提示单位名称 支部名称列无效   麻烦老师们指导下
cmd11.Comma ndText="sel ect  图片 fro m web上传图片附件 where  姓名= \'" & xingming & "\'and 单位名称= \'" & danweimingcheng & "\' and 支部名称= \'" & suoshuzhibu & "\'"

图片  是二进制列
其中 单独如下：可以根据姓名筛选得到数据
cmd11.Comma ndText="sel ect  图片 fro m web上传图片附件 where  姓名= \'" & xingming & "\'"

代码如下：
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim xingming As String  = e.PostValues("姓名")
Dim danweimingcheng As String  = e.PostValues("单位名称")
Dim suoshuzhibu As String  = e.PostValues("所属支部")
wb.AddForm("","form1","getVimg.htm")
MessageBox.Show(danweimingcheng)
MessageBox.Show(suoshuzhibu )
Dim cmd11 As New SQ LCommand
cmd11.Connection Name = "智慧党建"
cmd11.Comma ndText="sel ect  图片 fro m web上传图片附件 where  姓名= \'" & xingming & "\'and 单位名称= \'" & danweimingcheng & "\' and 支部名称= \'" & suoshuzhibu & "\'"
Dim dt As DataTable = cmd11.Execu teReader
Dim src As String
With wb.AddInputGroup("form1","ipg11","客户资料")
    .AddInput("单位名称","单位名称","text").value = danweimingcheng
    .AddInput("所属支部","所属支部","text").value = suoshuzhibu
    .AddInput("姓名","姓名","text").value = xingming
End With

With wb.AddInputGroup("form1","ipg1111","图片信息")
    With .AddUploader("up111","",True)
        .AllowAdd = False \'关闭文件上传功能
        For Each dr As DataRow In dt.DataRows
            Dim imagebytes As Byte() = dr("图片")
            src = Convert.ToBase64String(imagebytes)
            .AddImage("data:image/jpeg;base64," & src)
        Next
        With wb.AddArticle("","ar1")
            .UseGallery = True \'启用Gallery,必须放在第一行
            
        End With
    End With
End With
With wb.AddInputGroup("form1","ipg33","")
    With wb.AddButtonGroup("form1","btg1",True)  \'垂直排列
        .Add("btn5", "返回首页", "", "default.htm")
    End With
End With
e.WriteString(wb.Build) \'生成网页

代码运行错误如下：
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2020.5.29.8
错误所在事件：
详细错误信息：
列名 \'支部名称\' 无效。
列名 \'单位名称\' 无效。
[此贴子已经被作者于2020/6/28 16:14:06编辑过]
--  作者：有点蓝
--  发布时间：2020/6/28 16:23:00
--  
说明 web上传图片附件这个表没有这个2个列

msgbox("sel ect  图片 fro m web上传图片附件 where  姓名= \'" & xingming & "\'and 单位名称= \'" & danweimingcheng & "\' and 支部名称= \'" & suoshuzhibu & "\'")
--  作者：李孝春
--  发布时间：2020/6/28 16:39:00
--  回复：（有点蓝）说明 web上传图片附件这个表没有...
有点蓝老师  是有这两个列的
我手动输入上述sele ct弹出的语句都是可以查找到对应的数据
但是直接运行代码就不行了  出现末尾报错
--  作者：有点蓝
--  发布时间：2020/6/28 16:45:00
--  
确定是这一句代码的错误？

Dim cmd11 As New SQ LCommand
cmd11.Connection Name = "智慧党建"
msgbox("sel ect  图片 fro m web上传图片附件 where  姓名= \'" & xingming & "\'and 单位名称= \'" & danweimingcheng & "\' and 支部名称= \'" & suoshuzhibu & "\'") 弹出什么内容？
cmd11.Comma ndText="sel ect  图片 fro m web上传图片附件 where  姓名= \'" & xingming & "\'and 单位名称= \'" & danweimingcheng & "\' and 支部名称= \'" & suoshuzhibu & "\'"
Dim dt As DataTable = cmd11.Execu teReader
msgbox(1)能不能弹出？
--  作者：李孝春
--  发布时间：2020/6/28 17:11:00
--  回复：（有点蓝）确定是这一句代码的错误？Dim cmd11 ...
不确定哦  但是这个代码是可以弹出值的
以下内容是专门发给有点蓝浏览
图片表中也有单位名称 支部名称列
上述代码只取姓名的话  是可以找到该姓名对应的数据  但是加上单位名称  支部名称就尴尬了  提示两个列无效


.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2020.5.29.8
错误所在事件：自定义函数,getVimg
详细错误信息：
调用的目标发生了异常。
未将对象引用设置到对象的实例。

getVimg页面代码就是一楼代码
[此贴子已经被作者于2020/6/28 17:12:37编辑过]
--  作者：有点蓝
--  发布时间：2020/6/28 17:39:00
--  
先确定是哪一句代码出错