窗体批量赋值问题

流浪狗狗　发表于：2012-08-29 12:41:29 　

批量加入实现了，但是有一个赋值的问题，红字的部分我怀疑是不是有问题。把是否字段的值置为true.但是只有第一行加入的值置为了true,其他的都失效了。

Set rst1 = CurrentDb.OpenRecordset("tblYhxx", dbOpenDynaset)
        Set rst2 = CurrentDb.OpenRecordset("tblYxxxfp", dbOpenDynaset)
        For I = 0 To List0.ListCount
            If List0.Selected(I) = True Then
                rst1.Edit
                rst1("sffp") = True
                rst1.Update

                rst2.AddNew
                rst2("fpId") = acchelp_autoid("F", 10, "tblYxxxfp", "fpId")
                rst2("fpsj") = Me.fpsj
                rst2("zycp") = Me.cpdm
                '营销分配表中主营产品zycp等于产品代码
                rst2("yggh") = Me.yggh
                rst2("ygxm") = Me.ygxm
                rst2("yhbh") = List0.Column(0, I)
                rst2.Update
                List0.Selected(I) = False
            End If
        Next
    'End If
    DoCmd.Close
    MsgBox "保存成功!", vbInformation, "提示"

Top

麥田发表于：2012-08-29 13:39:00

是否型的数值对应的是 0 -1

Top

流浪狗狗发表于：2012-08-29 13:45:11

我把代码改成

rst1.Edit
rst1("sffp") = -1
rst1.Update

但是还是没有生效。

注：代码rst2部分是生效的

Top

叶海峰发表于：2012-08-29 14:41:05

就算你循环1万次,rst1记录集edit的记录都还是第一条,因为你没有rst1.movenext,把记录集指针移动到下一条记录

Top

流浪狗狗发表于：2012-08-29 14:53:38

牛逼了我刚刚也找到了问题谢谢！

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

窗体批量赋值问题