版主，关于动态数组的问题?

yangxiang

已定义了动态数组,但只能更新数组最后一个记录的内容,程序那里出错了,请帮忙修改一下.多谢!

[此贴子已经被作者于2006-6-30 11:36:23编辑过]

wu8313

把 table1 的数据写入 table4,并且使用 table3 的列 "收费项目"，这个问题建议你可以尝试使用查询和关系实现。

使用ado循环和数组，比较麻烦。ado循环向table4中写入数据，应该按照一个规则进行，比如你的例子好像是根据编号的规则，来改变 收费项目，可是规则很乱，ado指针移动写入源自 table1 的数据就没有规则(我估计是这样的)，就像 射击没有准星 一样。所以，失败了。

yangxiang

以下是引用wu8313在2006-6-29 17:45:00的发言：


把 table1 的数据写入 table4,并且使用 table3 的列 "收费项目"，这个问题建议你可以尝试使用查询和关系实现。

使用ado循环和数组，比较麻烦。ado循环向table4中写入数据，应该按照一个规则进行，比如你的例子好像是根据编号的规则，来改变 收费项目，可是规则很乱，ado指针移动写入源自 table1 的数据就没有规则(我估计是这样的)，就像 射击没有准星 一样。所以，失败了。

可否详细讲解使用查询和关系实现?或举一例子,谢谢!

yangxiang

请版主或高手们帮忙一下啊!!!!!

[此贴子已经被作者于2006-6-30 10:41:54编辑过]

yangxiang

继续请各位帮忙!!!

yangxiang

继续要求帮忙!!

fan0217

Private Sub Command1_Click()
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim rst As New ADODB.Recordset
Dim i As Integer

Set Conn = CurrentProject.Connection

Conn.Execute "delete * from table4"

Rs.Open "select * from table4", Conn, adOpenDynamic, adLockOptimistic
rst.Open "select * from table1 where 合计金额>0", Conn, adOpenDynamic, adLockOptimistic

    Do While Not rst.EOF
       For i = 5 To rst.Fields.Count - 1
            Rs.AddNew
            Rs("编号") = rst("编号")
            Rs("姓名") = rst("姓名")
            Rs("收费项目") = rst.Fields(i).Name
            Rs("金额") = rst(i)
            Rs.Update
        Next
        rst.MoveNext
    Loop
    MsgBox "完成", 64
End Sub

yangxiang

多谢版主的指教！！

manmi911

多谢