为何TABLE的复选框选不上呢? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 为何TABLE的复选框选不上呢?

共有2728人关注过本帖树形打印复制链接主题：为何TABLE的复选框选不上呢?

zhchling

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

等级：小狐帖子：385 积分：3893 威望：0 精华：0 注册：2012/2/9 20:09:00

为何TABLE的复选框选不上呢? 发帖心情

Post By：2014/8/19 10:16:00 [只看该作者]

Dim zcls As String =zcl.Replace(" ","")

For Each r As Row In Tables("选房窗口_table1").Rows

    If zcls.Contains( r("房间号") )    Then
         messagebox.show("you")     ' 这里能显示"you"
        r.Checked = True
    End If
Next

红色代码可以被执行到,但复选框没有被勾选上, 谁能知道代码错在哪里?

有点甜

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

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

Post By：2014/8/19 10:20:00 [只看该作者]

你说的复选框，是表格最左边的那个吗？不可能不能勾选。

如果不能，就是你在表格BeforeCheckRow写了取消的代码

zhchling

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

等级：小狐帖子：385 积分：3893 威望：0 精华：0 注册：2012/2/9 20:09:00

Post By：2014/8/19 10:23:00 [只看该作者]

BeforeCheckRow 里面没有代码,

aftercheckrow 里面的代码都被我注释掉了,

还是不行

有点甜

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

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

Post By：2014/8/19 10:23:00 [只看该作者]

那就不可能，做个简单例子发上来。

zhchling

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

等级：小狐帖子：385 积分：3893 威望：0 精华：0 注册：2012/2/9 20:09:00

Post By：2014/8/19 12:38:00 [只看该作者]

我找到原因了. 是因为代码后面还有这两行排序的代码,

把排序的代码移到前面就可以勾选了.

Tables("选房窗口_table1").Sort = "房型"
Tables("选房窗口_table2").Sort = "房型"

主题：为何TABLE的复选框选不上呢?