主题：提示窗口

老师，想在AfterSelChange事件中写入下面代码，实现点到“辍学分类”列后弹出独立窗口“信息”，显示提示信息。其它的都没有问题，要解决的问题是怎么能打开窗口，显示完后关闭窗口。

粉色的部分没问题，黑色的部分原来写在cilk中，存在两问题：

1、打开窗口不能及时显示内容，非得点别的列后再回到辍学分类列才显示出内容。

2、打开了窗口，点别的列不能自动关闭窗口。

If e.Col.Name = "辍学分类"  Then
    If Forms("信息").Opened = False Then
        Forms("信息").Open
        If Forms("信息").Opened AndAlso e.OldRange.ColSel <> e.NewRange.ColSel
            Dim c As Col = e.Table.Cols(e.NewRange.ColSel)
            Dim rtxt = Forms("信息").Controls("Panel1").basecontrol.Controls("mytxt")
            rtxt.ForeColor = color.Black
            rtxt.text = "无内容"
            Select Case c.name
                Case "辍学分类"
                    rtxt.ForeColor = color.Blue
                    rtxt.text = Tables("提示信息").Rows(0)("控辍保学")
            End Select
        End If
      End If
End If

在clike中写：

If e.Col.Name = "辍学分类"  Then
    If Forms("信息").Opened = False Then
        Forms("信息").Open
        ' Forms("考核评优").Controls("TextBox1").text = e.Row(e.Col.Name)
    End If
Else
     Forms("信息").Close()
End If

在AfterSelChange中写

If Forms("信息").Opened   ’AndAlso e.OldRange.ColSel <> e.NewRange.ColSel
            Dim c As Col = e.Table.Cols(e.NewRange.ColSel)
            Dim rtxt = Forms("信息").Controls("Panel1").basecontrol.Controls("mytxt")
            rtxt.ForeColor = color.Black
            rtxt.text = "无内容"
            Select Case c.name
                Case "辍学分类"
                    rtxt.ForeColor = color.Blue
                    rtxt.text = Tables("提示信息").Rows(0)("控辍保学")
            End Select
        End If

窗口打开都正常，但非要点两次才能显示提示信息，能不能点到辍学分类列就出现提示信息呢。

老师，问题解决，我直接写在窗口的AfterLoad事件中解决了问题，谢谢老师。

原来正常，昨天foxtable升级后出错了，这是怎么了？

.NET Framework 版本：4.0.30319.1026
Foxtable 版本：2020.4.19.8
错误所在事件：控辍保学,AfterSelChange
详细错误信息：
Object variable or With block variable not set.

If e.OldRange.ColSel <> e.NewRange.ColSel
    Dim c As Col  = e.Table.Cols(e.NewRange.ColSel)
    Select Case c.name
        Case "辍学分类"
            Forms("信息").Show
            Dim rtxt = Forms("信息").Controls("Panel1").basecontrol.Controls("mytxt")
            rtxt.ForeColor = color.Black
            rtxt.text = Tables("提示信息").Rows(0)("控辍保学")
    End Select
Else
    Forms("信息").Close
End If

.NET Framework 版本：4.0.30319.1026
Foxtable 版本：2020.4.19.8
错误所在事件：窗口,信息,AfterLoad
详细错误信息：
Method not found: 'Int32 System.Runtime.InteropServices.Marshal.SizeOf(!!0)'.

Dim rtxt As New System.Windows.Forms.RichTextBox     '新建一个第三方控件
UtilsSetLineSpace.SetLineSpace(rtxt, 400)    '设置行间距
rtxt.name = "mytxt"                       '设置控件名称
rtxt.Dock = 5                           '设置控件停靠属性
e.Form.Controls("Panel1").BaseControl.Controls.Add(rtxt)           '把控件添加入Panel1
rtxt.Multiline = True
rtxt.text = Tables("提示信息").Rows(0)("控辍保学")
rtxt.ForeColor = color.Blue

If e.OldRange.ColSel <> e.NewRange.ColSel
    Dim c As Col  = e.Table.Cols(e.NewRange.ColSel)
    Select Case c.name
        Case "辍学分类"
            Forms("信息").Show
            Dim rtxt = Forms("信息").Controls("Panel1").basecontrol.Controls("mytxt")
            rtxt.ForeColor = color.Blue
            rtxt.text = Tables("提示信息").Rows(0)("控辍保学")
        Case "当前状态"
            Forms("信息").Show
            Dim rtxt = Forms("信息").Controls("Panel1").basecontrol.Controls("mytxt")
            rtxt.ForeColor = color.Blue
            rtxt.text = Tables("提示信息").Rows(1)("控辍保学")
           
        Case "劝学措施"
            Forms("信息").Show
            Dim rtxt = Forms("信息").Controls("Panel1").basecontrol.Controls("mytxt")
            rtxt.ForeColor = color.Blue
            rtxt.text = Tables("提示信息").Rows(2)("控辍保学")
           
            'Case  Else
            '   Forms("信息").Close
    End Select
Else
    Forms("信息").Close
   
End If

为什么点辍学分类是正常的，点其它列只闪一下就没了。

老师，上传实例有点不方便，就两段代码，再把问题说一下请您看看。

If e.OldRange.ColSel <> e.NewRange.ColSel                     判断是不是原来的列
    Dim c As Col  = e.Table.Cols(e.NewRange.ColSel)
    Select Case c.name
        Case "辍学分类"                                                        进入这一列，一切正常。
            Forms("信息").Show
            Dim rtxt = Forms("信息").Controls("Panel1").basecontrol.Controls("mytxt")
            rtxt.ForeColor = color.Blue
            rtxt.text = Tables("提示信息").Rows(0)("控辍保学")
        Case "当前状态"                                             进入这一列，窗口打开，内容也显示。但一闪即关闭了。
            Forms("信息").Show
            Dim rtxt = Forms("信息").Controls("Panel1").basecontrol.Controls("mytxt")
            rtxt.ForeColor = color.Blue
            rtxt.text = Tables("提示信息").Rows(1)("控辍保学")
           
        Case "劝学措施"                                              进入这一列，窗口打开，内容也显示。但一闪即关闭了。
             Forms("信息").Show
            Dim rtxt = Forms("信息").Controls("Panel1").basecontrol.Controls("mytxt")
            rtxt.ForeColor = color.Blue
            rtxt.text = Tables("提示信息").Rows(2)("控辍保学")
           
            Case  Else
             Forms("信息").Close
    End Select
End If

窗口"信息"的AfterLoad事件代码

Dim rtxt As New System.Windows.Forms.RichTextBox     '新建一个第三方控件
UtilsSetLineSpace.SetLineSpace(rtxt, 400)    '设置行间距
rtxt.name = "mytxt"                       '设置控件名称
rtxt.Dock = 5                           '设置控件停靠属性
e.Form.Controls("Panel1").BaseControl.Controls.Add(rtxt)           '把控件添加入Panel1
rtxt.Multiline = True

请给看一下问题出在哪了

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:提示信息显示.zip