以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]如何统计表中复选框选中的记录条数 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=190788) |
-- 作者:riyuan -- 发布时间:2024/3/4 15:26:00 -- [求助]如何统计表中复选框选中的记录条数 ,有一个表,开启了复选框,如何复选框选中的记录条数 |
-- 作者:riyuan -- 发布时间:2024/3/4 15:26:00 -- Dim rs As List(of Row) = Tables("df_table2").GetCheckedRows() For Each r As Row In rs forms("df").Controls("jlts")=e.Table.GetCheckedRows.count Next |
-- 作者:有点蓝 -- 发布时间:2024/3/4 15:36:00 -- 一句代码就够了 |
-- 作者:riyuan -- 发布时间:2024/3/4 15:37:00 -- textbox的textchange事件代码 If e.Sender.text =" " Then Return Else e.Form.Controls("jnjs1").text = cstr(e.Sender.text*0.005) e.Form.Controls("je").text = cstr(e.Form.Controls("jnjs1").text) End If
[此贴子已经被作者于2024/3/4 15:37:37编辑过]
|
-- 作者:有点蓝 -- 发布时间:2024/3/4 15:39:00 -- If e.Sender.text =" " Then 改为 If e.Sender.text ="" Then
|
-- 作者:riyuan -- 发布时间:2024/3/4 15:45:00 -- forms("df").Controls("jlts").text=e.Table.GetCheckedRows.count 这句代码在选中的时候,记录条数不对,取消选中的时候,记录条数也不减少
|
-- 作者:有点蓝 -- 发布时间:2024/3/4 15:50:00 -- 代码放在什么事件?使用的是逻辑列勾选还是复选框? [此贴子已经被作者于2024/3/4 15:50:02编辑过]
|
-- 作者:riyuan -- 发布时间:2024/3/4 20:49:00 -- 放在表的positionChanged事件中,采用的是复选框 |
-- 作者:有点蓝 -- 发布时间:2024/3/4 20:57:00 -- 放到AfterCheckRow事件 |