Foxtable(狐表)用户栏目专家坐堂 → [求助]组合框


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

主题:[求助]组合框

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


加好友 发短信
等级:七尾狐 帖子:1712 积分:11426 威望:0 精华:0 注册:2015/6/22 8:11:00
[求助]组合框  发帖心情 Post By:2020/6/4 10:42:00 [只看该作者]

老师好,下面代码报错,如果点击没有在组合框中设置过代码的表就有下面的报错。
.NET Framework 版本:2.0.50727.8669
Foxtable 版本:2017.4.22.1
错误所在事件:窗口,组合框,ComboBox1,TextChanged
详细错误信息:
未将对象引用设置到对象的实例。

   
    If DataTables.Contains(e.sender.text) Then                 '
    Dim tj As String = "Select * Fr om {" & e.sender.text & "}"
    Dim c As String
    If e.Sender.Text = "入库" Then
        c = ("编号|47|记录日期|71|入库单编号|71|开piao日期|59|fa piao号码")
    Else If e.Sender.Text = "商品信息" Then
        c = ("编号|47|供货_厂家ID|121|供货_厂家|145|商品ID|139")
    End If

    Tables("组合框_Table1").Fill(tj, "数据库", False)  '加载Table
    Tables("组合框_Table1").SetColVisibleWidth(c)
    Tables("组合框_Table1").ShowCheckBox = True
Else
    MessageBox.Show("对不起没此表!", "提示")
End If


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107809 积分:548396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/4 10:45:00 [只看该作者]

    Tables("组合框_Table1").Fill(tj, "数据库", False)  '加载Table
if c > "" then
    Tables("组合框_Table1").SetColVisibleWidth(c)
end if
    Tables("组合框_Table1").ShowCheckBox = True

 回到顶部