主题：窗体中,如何做按条件自动勾选复选框

,提示说,版本过高,让我升级,我目前已经是最新的版本了

 

肯定不是最新版，请升级到最新版foxtable。

可以了,甜老师,谢谢你了

甜老师,如果文件登记表中的"年度","密级","保管期限"与装盒信息表的"年度","密级","保管期限"不一致,则不予装盒,并提示修改怎么做?

Dim r = Tables("装盒信息").current
For Each adr As DataRow In DataTables("文件登记表").Select("是否归档= true")
    If adr("年度") = r("年度") AndAlso adr("密级") = r("密级") AndAlso adr("保管期限") = r("保管期限") Then
        Dim dr As DataRow = DataTables("归档文件").AddNew
        Dim cs1() As String = { "文号", "年度","密级","保管期限","文件题名"} '表B列
        Dim cs2() As String = { "文号", "年度","密级","保管期限","文件题名"} '表A列
       
        For i As Integer = 0 To cs1.length-1
            dr(cs1(i)) = adr(cs2(i))
        Next
        dr("案卷级档号") = r("案卷级档号")
        adr.delete
    End If
Next

下载重装后可以了,甜老师,如果文件登记表中的"年度",'密级","保管期限"与装盒信息中的"年度",'密级","保管期限"

只要有一项不相同,则拒绝装盒,提示修改?

Dim r = Tables("装盒信息").current
For Each adr As DataRow In DataTables("文件登记表").Select("是否归档= true")
    If adr("年度") = r("年度") AndAlso adr("密级") = r("密级") AndAlso adr("保管期限") = r("保管期限") Then
    Else
        msgbox("数据不匹配,请修改")
        Return
    End If
Next
For Each adr As DataRow In DataTables("文件登记表").Select("是否归档= true")
    If adr("年度") = r("年度") AndAlso adr("密级") = r("密级") AndAlso adr("保管期限") = r("保管期限") Then
        Dim dr As DataRow = DataTables("归档文件").AddNew
        Dim cs1() As String = { "文号", "年度","密级","保管期限","文件题名"} '表B列
        Dim cs2() As String = { "文号", "年度","密级","保管期限","文件题名"} '表A列
       
        For i As Integer = 0 To cs1.length-1
            dr(cs1(i)) = adr(cs2(i))
        Next
        dr("案卷级档号") = r("案卷级档号")
        adr.delete
    End If
Next