以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  换行刷新行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=189804)

--  作者:fangshen
--  发布时间:2023/12/27 11:08:00
--  换行刷新行
有一个窗口A,窗口A中有一个表B。
希望实现:当鼠标从表B的a行更换到b行时,刷新a行
               当鼠标从表B的c行更换到f行时,刷新c行
就类似换行前刷新当前行 

不知道是否何以实现

谢谢  
         

--  作者:有点蓝
--  发布时间:2023/12/27 11:11:00
--  
AfterSelChange事件

If e.OldRange.RowSel <> e.NewRange.RowSel \'如果选择的是不同的行
    If e.OldRange.RowSel >= 0 AndAlso e.OldRange.Rowsel < e.Table.Rows.Count Then \'而且原来选择的是一个有效的数据行
        
Dim r As Row = e.Table.Rows(e.OldRange.Rowsel\'获得原来选择的行
        r.load

    
End If
End
 If

--  作者:fangshen
--  发布时间:2023/12/27 11:39:00
--  
你好:我测试了一下,感觉是换行刷新表,不是刷新行。

谢谢

--  作者:有点蓝
--  发布时间:2023/12/27 11:40:00
--  
绝对不可能,2楼的代码不可能会刷新表。除非自己写了其它不合适的代码
--  作者:fangshen
--  发布时间:2023/12/27 13:41:00
--  
谢谢,可以了,刚才在losd后面加了()
--  作者:有点蓝
--  发布时间:2023/12/27 13:48:00
--  
加不加括号都没有什么问题。加括号也不会变成加载表