以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口查询表Click写下面代码不执行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121089)
--  作者：Liangcai
--  发布时间：2018/6/29 2:17:00
--  窗口查询表Click写下面代码不执行
窗口查询表Click写下面代码不执行
Select Case e.Col.Name
    Case "第一列"
       ....
    Case "第二列"
       .....
 End Select
错误代码：
.NET Framework 版本：2.0.50727.8922
Foxtable 版本：2018.3.9.1
错误所在事件：
详细错误信息：
未将对象引用设置到对象的实例。
--  作者：有点甜
--  发布时间：2018/6/29 9:42:00
--  
贴出完整代码。
--  作者：Liangcai
--  发布时间：2018/6/29 19:42:00
--  
Select Case e.Col.Name
    Case "第一列"
       Forms("查询").Controls("Label1").text = Tables("学生缴费_Table1").Current("学生姓名") & "缴费明细 >>>>"
    Case "第二列"
       Forms("查询"1).Controls("Label1").text = Tables("学生缴费_Table1").Current("学生姓名") & "缴费明细 >>>>"
 End Select
--  作者：有点蓝
--  发布时间：2018/6/29 20:36:00
--  
If  e.Table.Current IsNot Nothing Then
    Select Case e.Col.Name
        Case "第一列"
            If Forms("查询").Opened Then
                Forms("查询").Controls("Label1").text = e.Table.Current("学生姓名") & "缴费明细 >>>>"
            End If
        Case "第二列"
            If Forms("查询1").Opened Then
                Forms("查询"1).Controls("Label1").text = e.Table.Current("学生姓名") & "缴费明细 >>>>"
            End If
    End Select
End If
--  作者：Liangcai
--  发布时间：2018/6/29 22:07:00
--  
谢谢