以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  记录窗口如何实现记录移动  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=102120)
--  作者：xujie80
--  发布时间：2017/6/13 16:36:00
--  记录窗口如何实现记录移动
如例，如何通过上下按钮实现a.b.c.d位置调整
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目9.foxdb
--  作者：有点蓝
--  发布时间：2017/6/13 17:50:00
--  
向上按钮

Dim rg As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
Dim r As Row = rg.Table.Current
If r IsNot Nothing Then
    Dim rgb = rg.BaseControl
    Dim idx As Integer = rgb.RowSel
    If idx > 0 Then
        Dim v As String = r(idx)
        r(idx) = r(idx-1)
        r(idx-1) = v
        rgb.Select(idx-1,1)
    End If
End If

向下就留作业了
--  作者：xujie80
--  发布时间：2017/6/14 16:19:00
--  
OK 谢谢