以文本方式查看主题

-  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
--  
一句代码就够了

forms("df").Controls("jlts").text=e.Table.GetCheckedRows.count
--  作者: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
为什么会出现这种提示
图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看
[此贴子已经被作者于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事件