以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  数组错误求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53819)
--  作者：yifan3429
--  发布时间：2014/7/16 10:13:00
--  数组错误求助
If e.Col.Name = "P_疑问焦点","D_疑问解答","C_方案缺陷","A_方案升级"
    AndAlso e.Row.IsNull("P_疑问焦点","D_疑问解答","C_方案缺陷","A_方案升级") = False Then
    e.Table.ShowToolTip(e.Row("P_疑问焦点","D_疑问解答","C_方案缺陷","A_方案升级"),e.Row,e.Col)
End If
--  作者：Bin
--  发布时间：2014/7/16 10:17:00
--  
语法错误,不能这么做.没有这样的语法.


select case e.col.name
        case "P_疑问焦点","D_疑问解答","C_方案缺陷","A_方案升级"
               if e.row.isnull("P_疑问焦点")=false andalso e.row.isnull("D_疑问解答")=false  andalso e.row.isnull("C_方案缺陷")=false  andalso e.row.isnull("A_方案升级")=false then
    e.Table.ShowToolTip(e.row(e.col.name),e.row,e.col)
end if
end select
--  作者：有点甜
--  发布时间：2014/7/16 10:19:00
--  
Select e.Col.Name
    Case "P_疑问焦点","D_疑问解答","C_方案缺陷","A_方案升级"
        If e.Row.IsNull("P_疑问焦点") = False AndAlso e.Row.IsNull("D_疑问解答") = False AndAlso e.Row.Isnull("C_方案缺陷") = False AndAlso e.Row.Isnull("A_方案升级") = False Then
            e.Table.ShowToolTip(e.Row("P_疑问焦点") & e.Row("D_疑问解答") & e.Row("C_方案缺陷") & e.Row("A_方案升级"),e.Row,e.Col)
        End If
End Select