窗体中,如何做按条件自动勾选复选框 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗体中,如何做按条件自动勾选复选框

共有2286人关注过本帖树形打印复制链接主题：窗体中,如何做按条件自动勾选复选框

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/6/8 14:38:00 [显示全部帖子]

没看懂你的意思。勾选CheckBox之后，希望表数据如何变化？要勾选哪些行？

或者说明怎么操作以后，表格得到怎样效果。

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/6/8 19:59:00 [显示全部帖子]

看不懂你的意思。

1、项目里面输入数值；

2、说明操作什么最后得到什么结果。

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/6/10 23:05:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.foxdb

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/6/11 10:46:00 [显示全部帖子]

测试，例子正常。

你的报什么错？你试试卸载重装最新版foxtable。

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/6/11 10:51:00 [显示全部帖子]

以下是引用fytea在2018/6/11 10:48:00的发言：

下载了打不开,甜老师,帮我重新发一下吧

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

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

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/6/11 11:25:00 [显示全部帖子]

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

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/6/11 11:53:00 [显示全部帖子]

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

下一主题 >> << 上一主题

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