怎样按条件将一条记录拆分为几条记录？求助!

ljp518

由于银行控制>=5万元的付款，需要将贷方数>=5万元的付款记录，按姓名拆分成<5万元付款的若干条记录，不知vba函数怎样写，求助各位老师和版主！谢谢

ljp518

Private Sub Command0_Click()
    Dim rs As ADODB.Recordset
    Dim str As String
    Dim i As Integer
    Dim j As Integer
    Dim rs1 As ADODB.Recordset
    Dim str1 As String

    Set rs = New ADODB.Recordset
    Set rs1 = New ADODB.Recordset

    str = "select * from 表2"
    rs.Open str, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
    str1 = "select * from 表3"
    rs1.Open str1, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    If rs.EOF Then Exit Sub
    rs.MoveLast
    rs.MoveFirst

    Do Until rs.EOF
        j = rs(1) \ 1200
        If j > 0 Then
            For i = 1 To j
                rs1.AddNew
                rs1(1) = 1200
                rs1.Update
            Next i
            If rs(1) - 1200 * j <> 0 Then
                rs1.AddNew
                rs1(1) = rs(1) - 1200 * j
                rs1.Update
            End If

        Else
            rs1.AddNew
            rs1(1) = rs(1)
            rs1.Update
        End If

        rs.MoveNext
    Loop

    DoCmd.OpenTable "表3"

    rs.Close
    rs1.Close
    Set rs = Nothing
    Set rs1 = Nothing

End Sub

用这个拆分记录的函数如何修改为按姓名拆分，请各位老师帮助！谢谢！

ljp518

tzh16000 发表于 2011-9-23 15:42
看了下,应该把1200改成49999,表2为源表,表3为目标表
这里不是很懂,rs(1),是改成第N个字段的rs(N)呢?还是改 ...

首先是谢谢关注，再等待高手的出手。。。

ljp518

太感谢roych 版主了，{:soso_e179:}由于这几天忙没有上论坛，本应在第一时间感谢！净拖了5天，真不好意思，表示歉意！

ljp518

谢谢Henry D. Sy老师的认真负责，值得敬佩的老师！按此程序进行修改。{:soso_e181:}

ljp518

yehf老师！感谢你把代码有简化，使得运行更快！{:soso_e163:}

ljp518

谢谢Henry D. Sy 老师和yehf老师，感谢两位老师的帮助！{:soso_e163:}{:soso_e163:}