以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  判断表中是否有选择行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=153593)

--  作者:hopestarxia
--  发布时间:2020/8/16 12:14:00
--  判断表中是否有选择行
窗口中有一查询表,table1,表设置显示行号,显示复选框,

操作时选择部份行数据执行操作(选择后点击一个Button按钮插件,执行其中后面的代码);

想在Button插件中实现在在执行后面代码时,先检查表table1是否有符合记录的选择行(至少有一条任合记录的行才执行后面的代码),如果复选时没有选择任意一行,或有选择的行,但选择的行不符合要求(对比本行列:有一列值为“已处理”)的则为无效的选择,,没有选择行或选择的行没有符合要求的行时,则提示“没有选择行或选择的行已经处理。”)

请问老师此处如何实现;




--  作者:有点蓝
--  发布时间:2020/8/16 20:37:00
--  
遍历所有已选择的行,判断是否符合要求:http://www.foxtable.com/webhelp/topics/1776.htm
--  作者:hopestarxia
--  发布时间:2020/8/17 1:09:00
--  
老师,请问我还有第一个判断,先要判断是否有选择行。即一行也没有复选时会有提示没有选择数据。这第一个判断 应该怎么处理?
--  作者:有点蓝
--  发布时间:2020/8/17 8:58:00
--  
既然帮助提到GetCheckedRows,就应该去看看帮助里还有其他什么用法:http://www.foxtable.com/webhelp/topics/1636.htm

Dim rs As List(of Row) = Tables("订单").GetCheckedRows()
msgbox(rs.count)

--  作者:hopestarxia
--  发布时间:2020/8/17 9:50:00
--  
谢谢老师