ACCESS VBA开发记录集问题。请大神帮忙解答

songjiecf

现有两个表。

Set ParConn = CurrentProject.Connection
Set BasConn = CurrentProject.Connection
BasRs.LockType = adLockPessimistic


ParRs.Open "parameter", ParConn
BasRs.Open "BasicData", ParConn
－－－－－－－－－－－－－－－－－－这段是一个字符串截取的代码
Do Until ParRs.EOF = True

   MsgBox ParRs.Fields(0)

   c = InStr(main, ParRs.Fields(0))
If c > 0 Then

    c = c + ParRs.Fields(1)

    For i = c To Len(main)
        s = Mid(main, i, 1)
            If s <> ";" Then
                t = t & s
            Else
                Exit For
            End If
    Next i
－－－－－－－－－－－－－
    abo = ParRs.Fields(2) 我想实现一个字段的映射关系，由上表可知abo变量是  “代码”
    BasRs.AddNew  新增
    BasRs!"&"abo = t   这个地方不会写了。 如何能够达到 basrs!代码＝t 这个效果呢？
    BasRs.Update
    MsgBox t
    t = ""

songjiecf

问题 解决了。basrs.fields(abo)=t  搞定。