[求助]如何实现文本的自动补填[在线等]

alexfucn

代码如下

Option Compare Database

Option Explicit

Public Sub 补填会计科目()

Dim cnn As ADODB.Connection, cat As New ADOX.Catalog

Dim rs As New ADODB.Recordset, Accno As String

Dim General_joural As String

   Set cnn = CurrentProject.Connection

   Set cat.ActiveConnection = cnn

   Set rs.ActiveConnection = cnn

   General_joural = "作品集"

   rs.Open General_joural, , adOpenKeyset, adLockOptimistic, adCmdTable

   Do Until rs.EOF

    Accno = rs!作者

    rs("画家简介") = DLookup("[简介]", "简介", "[作者]=" & Accno)

    rs.Update

    rs.MoveNext

    Loop

    rs.Close

    Set rs = Nothing

    cnn.Close

End Sub

其中这一段由于"作者"及"accno"的内容和格式为文本不是数据而不能运行。请问有什么办法可以解决这个问题。或者有什么其它的命令可以通过文本的比较来完成文本的自动补填。

海狸先生

rs("画家简介") = DLookup("[简介]", "简介", "[作者]='" & Accno &"'")

alexfucn

搞好了。

感谢ing

[此贴子已经被作者于2005-6-12 15:31:53编辑过]