以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  置顶行问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=129644)
--  作者：cyrollin
--  发布时间：2019/1/3 10:40:00
--  置顶行问题
Dim rs As List (of Row) = CurrentTable().GetCheckedRows()
If rs.count= 0 Or Tables("表A").Current("日期") = Nothing
    For Each r As Row In rs
        r.Move(0)
    Next
    Return
End If

设计了一个BUTTON， 点了没反应
--  作者：有点甜
--  发布时间：2019/1/3 10:55:00
--  

这个意思？

 

Dim rs As List (of Row) = CurrentTable().GetCheckedRows()
For Each r As Row In rs
    r.Move(0)
Next
Return
--  作者：cyrollin
--  发布时间：2019/1/3 11:01:00
--  
图片点击可在新窗口打开查看 就是这个意思， 甜，好能干，谢谢1