[讨论]关于ShowToolTip。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下关于ShowToolTip的表现，不知道是我写的问题，还是本身的不足，

说明：

1.变量都能正常获取，当“对象名称”为空时，出现 ShowToolTip 提示。 --- 实际上没能出现，

2.调试，在 Dim dt As DataTable = cmd.ExecuteReader() 之后，加个messagebox后， ShowToolTip 又能出现。

何原因呢？

If _WinName > "" AndAlso _MenuItemName > "" Then
Dim cmd As new SQLCommand
cmd.ConnectionName = _ServerName
cmd.CommandText = "select * from {平台管理} where [模块名称] = '" & _WinName & "' and [控件名称] = '" & _MenuItemName & "'"
Dim dt As DataTable = cmd.ExecuteReader()
If dt.DataRows.Count > 0 Then
If dt.DataRows(0)("对象名称") <> "" And dt.DataRows(0)("是否启用") = True Then
Forms(dt.DataRows(0)("对象名称")).Open
ElseIf dt.DataRows(0)("对象名称") = "" Then
Forms(_WinName).Controls(_MenuItemName).ShowToolTip("对象没有被注册!",3000)
ElseIf dt.DataRows(0)("是否启用") = False Then
Forms(_WinName).Controls(_MenuItemName).ShowToolTip("对象没有被启用!",3000)
End If
End If
End If

试试这招看看,不行只能上例子了.http://www.foxtable.com/help/topics/1476.htm

加了这句话，情况还是这样。

If _WinName > "" AndAlso _MenuItemName > "" Then

Dim cmd As new SQLCommand

cmd.ConnectionName = _ServerName

cmd.CommandText = "select * from {平台管理} where [模块名称] = '" & _WinName & "' and [控件名称] = '" & _MenuItemName & "'"

Dim dt As DataTable = cmd.ExecuteReader()

If dt.DataRows.Count > 0 Then

If dt.DataRows(0)("对象名称") <> "" And dt.DataRows(0)("是否启用") = True Then

Forms(dt.DataRows(0)("对象名称")).Open

ElseIf dt.DataRows(0)("对象名称") = "" Then

Application.DoEvents()

Forms(_WinName).Controls(_MenuItemName).ShowToolTip("对象没有被注册!",3000)

ElseIf dt.DataRows(0)("是否启用") = False Then

Application.DoEvents()

Forms(_WinName).Controls(_MenuItemName).ShowToolTip("对象没有被启用!",3000)

End If

如果这样不行，是不是就不行了呢？

试试：

If _WinName > "" AndAlso _MenuItemName > "" Then
    Dim cmd As new SQLCommand
    cmd.ConnectionName = _ServerName
    cmd.CommandText = "select * from {平台管理} where [模块名称] = '" & _WinName & "' and [控件名称] = '" & _MenuItemName & "'"
    Dim dt As DataTable = cmd.ExecuteReader()
    If dt.DataRows.Count > 0 Then
        If dt.DataRows(0)("对象名称") <> "" Then
            If dt.DataRows(0)("是否启用") = True Then
                Forms(dt.DataRows(0)("对象名称")).Open()
            Else
                Forms(_WinName).Controls(_MenuItemName).ShowToolTip("对象没有被启用!",3000)
            End If
        Else
            Forms(_WinName).Controls(_MenuItemName).ShowToolTip("对象没有被注册!",3000)
        End If
    End If
End If

主题：[讨论]关于ShowToolTip。