以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  置顶行问题  (http://foxtable.net/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