# 感谢尧仔，但仍有问题，请进

Posted by JACKY on February 27, 1999 at 02:36:59:

请你帮我看一下问题出在哪?出现参数太少，预期个数c，错误讯息3061，谢谢!!
Private Sub 指令18_Click()
Dim db As Database
Dim rs As Recordset
Dim Rs2 As Recordset
Dim Rs3 As Recordset
Dim x As String
Dim yyy As String
Set db = CurrentDb()

Set Rs2 = db.OpenRecordset("查询1", dbOpenDynaset)
Set Rs3 = db.OpenRecordset("Keyin", dbOpenDynaset)
Rs3.MoveFirst
Rs2.MoveFirst
Do While Not Rs3.EOF
Do While Not Rs2.EOF
If Trim(Rs2.Fields("name")) = Trim(Rs3.Fields("name")) Then
If Trim(Rs2.Fields("job_Name")) = Trim(Rs3.Fields("job_Name")) Then
If Trim(Rs2.Fields("address")) = Trim(Rs3.Fields("address")) Then
x = "update keyin set sex = " & Rs2.Fields("sex")
db.Execute (x)
Exit Do
End If
End If
End If
Rs2.MoveNext
Loop
Rs3.MoveNext
Loop
End Sub

Follow Ups:

- Re: 感谢尧仔，但仍有问题，请进 尧仔 22:23:22 2/27/99 (0)