标题: [求助]控件更新问题 [打印本页] 作者: loren 时间: 2006-8-23 01:45 标题: [求助]控件更新问题 Private Sub 总成零件号_AfterUpdate()
Dim R As Integer
Set rs2 = New ADODB.Recordset
rs2.Open "一级生成表", CurrentProject.Connection, adOpenKeyset, adLockOptimistic----这句是抄的,不是很懂.
rs2.MoveFirst
For R = 1 To rs2.RecordCount
rs2("总成代码") = Me.总成零件号
rs2.MoveNext
Next R 'rs2.Close "一级生成表"------这句有问题.
Me.Requery