以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]考虑多表情况时菜单设计全选、反选、清空的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=94885)
--  作者：一枚学习者
--  发布时间：2017/1/4 16:35:00
--  [求助]考虑多表情况时菜单设计全选、反选、清空的问题
请教老师：
项目中有多个表
一些表里行头为复选框
一些表里则没有
设计菜单全选、反选、清空
但是要怎么写才能识别当前表有复选框的表正常使用
当前表没有复选框的时候则提示呢？
--  作者：有点色
--  发布时间：2017/1/4 16:46:00
--  
If CurrentTable.ShowCheckBox then
    msgbox("显示了")
Else
    msgbox("没显示")
End If
--  作者：一枚学习者
--  发布时间：2017/1/4 17:30:00
--  
If CurrentTable.ShowCheckBox Then
    For Each r As Row In e.Table.CheckedRows
        r.Checked = False
    Next
Else
    MessageBox.Show("请先选择逻辑列","提示")
End If
这样写哪里错了呢
 还有反选的话应该怎么写啊
--  作者：有点色
--  发布时间：2017/1/4 17:34:00
--  

If CurrentTable.ShowCheckBox Then
    For Each r As Row In CurrentTable.getCheckedRows
        r.Checked = False
    Next
Else
    MessageBox.Show("请先选择逻辑列","提示")
End If

 

\'---------------------

 

If CurrentTable.ShowCheckBox Then
    For Each r As Row In CurrentTable.getCheckedRows
        r.Checked = not r.checked
    Next
Else
    MessageBox.Show("请先选择逻辑列","提示")
End If

[此贴子已经被作者于2017/1/4 17:34:22编辑过]
--  作者：一枚学习者
--  发布时间：2017/1/4 17:58:00
--  
补充提问：
项目中有一个有复选框的C表设计了主窗口 窗口中table控件绑定C表
1.C表设置了复选框  但是窗口控件却不显示
2.点及全选、反选、清空菜单，作用是在C表没有作用在table控件
这个要怎么同步啊？
--  作者：有点色
--  发布时间：2017/1/4 17:59:00
--  

1、AfterLoad事件设置

 

e.Form.Controls("Table1").Table.ShowCheckBox = true

 

2、你选择哪个表，就自然作用在哪个表。