下面是一段在主窗体上更新子窗体数据值的方法，但更新不对，错在什么地方？

真主

下面是一段在主窗体上更新子窗体数据值的方法，但更新的全部的值均为子窗当前焦点行的条件的值，这是为什么？错在什么地方？

1.     Dim i0 As Long
   
2.     Dim RS0 As Recordset
   
3.     Set RS0 = Me.C_CB_001产品工艺.Form.RecordsetClone
   
4.     RS0.MoveFirst
   
5.     For i0 = 1 To RS0.RecordCount
   
6.         RS0.Edit
   
7.         RS0("总色数") = DLookup("总色数", "B_CB_001产品部件_印刷_正反面合并", "[Forms]![C_CB_001产品主表]![C_CB_001产品工艺]![对应部件ID] & [Forms]![C_CB_001产品主表]![C_CB_001产品工艺]![制作面数] = [产品部件ID] &  [制作面]")
   
8.         RS0.Update
   
9.         RS0.MoveNext
   
10.     Next i0
    

复制代码

t小宝

dao记录集打开时，RecordCount属性是0或1，须移到最后一条后，才能获得真实记录数
例中应在 RS0.MoveFirst 前加一句:
RS0.MoveLast

真主

我将RS0.MoveLast加上后，总记录数是对的了，但RS0.MoveNext好像没有起作用，比如我子表有3条记录，点到第一条记录上，返回的是1，1，1，点到第二条记录上，返回的是2，2，2，请问这是为什么，是我子表什么地方设置不对？

t小宝

原来还引用了窗体控件值，把
Set RS0 = Me.C_CB_001产品工艺.Form.RecordsetClone
改为：
Set RS0 = Me.C_CB_001产品工艺.Form.Recordset

因为移动RecordsetClone的记录时窗体记录并不移动，而Recordset会与窗体记录同步

roych

1.    Dim rst As dao.Recordset
   
2.    Set rst = Me.FrmCF.Form.RecordsetClone
   
3.    rst.MoveLast
   
4.    rst.MoveFirst
   
5.    Do Until rst.EOF
   
6.    If rst.Fields(0).Value < 10 Then
   
7.         rst.Edit
   
8.         rst.Fields(0).Value = Me.Txt + rst.Fields(0).Value
   
9.         rst.Update
   
10.     End If
    
11.     rst.MoveNext
    
12.     Loop

复制代码

把以上这段代码稍稍改下即可。

真主

谢谢二位大侠

binyang168

看看