Foxtable(狐表)用户栏目专家坐堂 → sql 查询报错(解决了,false改成true就好了)


  共有9296人关注过本帖树形打印复制链接

主题:sql 查询报错(解决了,false改成true就好了)

帅哥哟,离线,有人找我吗?
476240618
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:121 积分:1122 威望:0 精华:1 注册:2011/9/16 14:49:00
sql 查询报错(解决了,false改成true就好了)  发帖心情 Post By:2012/2/10 22:20:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:3~p)5{6hor7~@g33hk}6.jpg
图片点击可在新窗口打开查看


Dim rbck As WinForm.RadioButton = e.Form.Controls("仓库")
Dim rbcg As WinForm.RadioButton = e.Form.Controls("采购")
Dim rbsc As WinForm.RadioButton = e.Form.Controls("生产")
Dim rbgc As WinForm.RadioButton = e.Form.Controls("工程")
Dim rbzx As WinForm.RadioButton = e.Form.Controls("自选")
Dim cx As String
Dim ckc As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")
If rbck.Checked = True Then
    cx = "物料编码,物料名称,规格,用量,单重,总重,包装方式,单包数量,仓库,存仓位置,当前库存,变动日期"
ElseIf rbck.Checked = True Then
    cx = "物料编码,物料名称,材质,规格,用量,采购提前期,最低采购量,最佳采购量,单价1,采购单位"
ElseIf rbgc.Checked =True Then
    cx = "物料编码,物料名称,材质,规格,模具编号,模穴数,颜色,已生产,生产数量,重量500"
ElseIf rbgc.Checked = True Then
    cx = "物料编码,物料名称,模具编号,模穴数,模具造型,模具钳工,模具尺寸,材质,规格,表面处理,图纸,设计变更,出模方式,模具情况"
ElseIf rbzx.Checked = True Then
    If ckc.Value Is Nothing Then
        cx = "*"
    Else
        cx = ckc.Value
    End If
Else
    If ckc.Value Is Nothing Then
        cx = "*"
    Else
        cx = ckc.Value
    End If
End If
DataTables("表A").Fill("Select " & cx & " From {物料清单} WHERE 物料编码 IN (SELECT 物料编码 FROM {产品})", "安琦乐", False)

 

查询内容为空时,正常,复选后就报错,是怎么回事?

 

[此贴子已经被作者于2012-2-10 22:58:13编辑过]

 回到顶部