Office中国论坛/Access中国论坛

标题: [分享]移动子窗体记录 [打印本页]

作者: gzh97730 时间: 2005-1-28 01:27
标题: [分享]移动子窗体记录
如题。

程序各参数分别为:

f          子窗体;

idN    自动编号字段名;

orderN  排序字段名称;

key    'UP'上移,'down'下移

Private Sub MoveRecord(f As Form, idN As String, orderN As String, key As String)

Dim i As Integer

Dim tmp0 As Long, tmp1 As Long, flag As Boolean, count As Integer, mark As Integer

Dim re As DAO.Recordset

Set re = f.Recordset

With re

mark = .Fields(idN)

tmp0 = .Fields(orderN)

Select Case key

      Case "up"

      .MovePrevious

      flag = .BOF

      Case "down"

      .MoveNext

      flag = .EOF

End Select

If flag = False Then

      .Edit: tmp1 = .Fields(orderN): .Fields(orderN) = tmp0: .Update

      Select Case key

         Case "up"

         .MoveNext

         Case "down"

         .MovePrevious

      End Select

      .Edit: .Fields(orderN) = tmp1: .Update

      f.Requery

      .FindNext idN & "=" & mark

      If .AbsolutePosition < 0 Then

         f.Requery

         .FindNext idN & "=" & mark

      End If

Else

      Select Case key

         Case "up"

         .MoveNext

         Case "down"

         .MovePrevious

      End Select

End If

End With

End Sub[attach]8809[/attach]

[此贴子已经被作者于2005-1-27 17:28:31编辑过]

作者: weixia0000 时间: 2008-10-17 23:36
kankan看看

作者: changweiren 时间: 2008-10-22 00:55
未换行不好看

作者: apsfxc1 时间: 2009-3-14 13:40
看看学习，感谢分享

作者: chaojianan 时间: 2009-3-15 12:30
谢谢分享，学习。

作者: yori2007 时间: 2009-3-15 13:34
学习了

作者: 7777777 时间: 2009-3-15 14:47
谢谢分享，学习。

作者: marlsq 时间: 2009-3-17 13:01
学习了，谢谢

作者: li08hua 时间: 2010-4-3 00:16
学习高手们的知识！

作者: goto2008 时间: 2010-4-5 17:34
学习了，谢谢

作者: xyjxs324 时间: 2010-4-6 13:08
未换行，看得头晕

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)