如何进行复选控件的全选与清除？

ccczzz

如何进行复选控件的全选与清除？

haixing

关注!

徐阿鹏

用个更新查询，可以吗？反正你的子窗体的表是全部连接到主窗体的，就用更新查询将是否折旧更新为true 或者false 就可以了，更新后在刷新一下

zhengjialon

命令7：
Private Sub 命令7_Click()

    Dim i As Long
    Dim rs As Recordset
    Set rs = Me.frm折旧总表.Form.RecordsetClone
    rs.MoveFirst
    For i = 1 To rs.RecordCount
        rs.Edit
        rs("是否折旧") = True
        rs("折旧日期") = Me.日期.Value
        rs.Update
        rs.MoveNext
    Next i
End Sub

命令8：
Private Sub 命令8_Click()

    Dim i As Long
    Dim rs As Recordset
    Set rs = Me.frm折旧总表.Form.RecordsetClone
    rs.MoveFirst
    For i = 1 To rs.RecordCount
        rs.Edit
        rs("是否折旧") = False
        rs("折旧日期") = Null
        rs.Update
        rs.MoveNext
    Next i
End Sub

cg1

'全选
currentproject.connection.execute "update tbl折旧总表 set 是否折旧=true and 折旧日期=#" & 日期.value & "#"
me.frm折旧总表.form.requery

全不选的代码类似

[此贴子已经被作者于2004-2-19 14:25:48编辑过]

ccczzz

谢谢各位。