ACCESS VBA開發(fā)記錄集問題。請大神幫忙解答

songjiecf

現(xiàn)有兩個表。

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) 我想實現(xiàn)一個字段的映射關(guān)系，由上表可知abo變量是  “代碼”
    BasRs.AddNew  新增
    BasRs!"&"abo = t   這個地方不會寫了。 如何能夠達(dá)到 basrs!代碼＝t 這個效果呢？
    BasRs.Update
    MsgBox t
    t = ""

songjiecf

問題 解決了。basrs.fields(abo)=t  搞定。