以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]备注列默认显示省略号,鼠标放上去显示所有  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=153768)

--  作者:crazyfengyu
--  发布时间:2020/8/22 8:38:00
--  [求助]备注列默认显示省略号,鼠标放上去显示所有
请问老师,当备注列有内容的时候显示省略号,然后鼠标放上去才显示所有。这个怎么做?
--  作者:有点蓝
--  发布时间:2020/8/22 9:43:00
--  
MouseEnterCell事件
If e.Col.Name = "备注"
    vars("s") = e.row.index
End If

MouseLeaveCell事件
If e.Col.Name = "备注"
    vars("s") = -1
End If

drawcell事件
If e.Col.Name = "备注" 
    If vars("s") <> e.Row.Index Then
        e.text = "..."
    End If
End If