Foxtable(狐表)用户栏目专家坐堂 → [求助] 组合查询 不知哪错,老师解说下


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

主题:[求助] 组合查询 不知哪错,老师解说下

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


加好友 发短信
等级:童狐 帖子:261 积分:2195 威望:0 精华:0 注册:2015/5/15 14:51:00
[求助] 组合查询 不知哪错,老师解说下  发帖心情 Post By:2015/8/22 15:53:00 [显示全部帖子]

一个组合框,用于选 表名  一个文本框,用于输入查找姓名,一个按钮用于查找并找开 记录窗口,同时显示查找 到的数据

我的代码:
Dim cb As String = e.Form.Controls("ComboBox1").value
Dim txt As String = e.Form.Controls("TextBox1").value
Dim dt As Table 
dt.Name = "cb"
If cb Is Nothing  Or txt Is Nothing Then
    MessageBox.Show("请输入查询类别或姓名")
Else
    With dt("cb")
        Dim r As Integer
        r = .Find("txt", 0, 0, False, False, True)
        If r > - 1 Then '如果找到符合条件的行
            .Position = r '则选择该行
        End If
    End With
End If

Dim rgd As WinForm.RecordGrid = Forms("查询").Controls("RecordGrid1")
rgd.Table = dt("cb")
rgd.Build()
Forms("查询").open()

 回到顶部
帅哥哟,离线,有人找我吗?
dxjwlf
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:261 积分:2195 威望:0 精华:0 注册:2015/5/15 14:51:00
  发帖心情 Post By:2015/8/22 16:51:00 [显示全部帖子]

弹出;不存在名为 cb的table




Dim cb As String = e.Form.Controls("ComboBox1").value
Dim txt As String = e.Form.Controls("TextBox1").value

If cb Is Nothing  Or txt Is Nothing Then
    MessageBox.Show("请输入查询类别或姓名")
Else
    With Tables("cb")
        Dim r As Integer
        r = .Find("txt", 0, 0, False, False, True)
        If r > - 1 Then '如果找到符合条件的行
            .Position = r '则选择该行
        End If
    End With
End If

Dim rgd As WinForm.RecordGrid = Forms("查询").Controls("RecordGrid1")
rgd.Table = Tables("cb")
rgd.Build()
Forms("查询").open()

 回到顶部
帅哥哟,离线,有人找我吗?
dxjwlf
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:261 积分:2195 威望:0 精华:0 注册:2015/5/15 14:51:00
  发帖心情 Post By:2015/8/22 17:06:00 [显示全部帖子]

怎么可能 ,我这是实例

 回到顶部
帅哥哟,离线,有人找我吗?
dxjwlf
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:261 积分:2195 威望:0 精华:0 注册:2015/5/15 14:51:00
  发帖心情 Post By:2015/8/22 17:09:00 [显示全部帖子]

也就是没有实例化一个对象。
当声明了变量,但是没有赋值,仍然为null.用的时候就会报错. 会不会是 变量 cb 的问题


 回到顶部
帅哥哟,离线,有人找我吗?
dxjwlf
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:261 积分:2195 威望:0 精华:0 注册:2015/5/15 14:51:00
  发帖心情 Post By:2015/8/22 17:15:00 [显示全部帖子]

组合框是通过 列表选取 。。应该用selectvalue?

 回到顶部