标题：[求助]如何统计表中复选框选中的记录条数

1楼

riyuan 发表于：2024/3/4 15:26:00

，有一个表，开启了复选框，如何复选框选中的记录条数

2楼

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

3楼

有点蓝 发表于：2024/3/4 15:36:00

一句代码就够了

forms("df").Controls("jlts").text=e.Table.GetCheckedRows.count

4楼

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编辑过]

5楼

有点蓝 发表于：2024/3/4 15:39:00

If e.Sender.text =" " Then

改为

If e.Sender.text ="" Then

6楼

riyuan 发表于：2024/3/4 15:45:00

forms("df").Controls("jlts").text=e.Table.GetCheckedRows.count

这句代码在选中的时候，记录条数不对，取消选中的时候，记录条数也不减少

7楼

有点蓝 发表于：2024/3/4 15:50:00

代码放在什么事件？使用的是逻辑列勾选还是复选框？

[此贴子已经被作者于2024/3/4 15:50:02编辑过]

8楼

riyuan 发表于：2024/3/4 20:49:00

放在表的positionChanged事件中，采用的是复选框

9楼

有点蓝 发表于：2024/3/4 20:57:00

共9 条记录, 每页显示 10 条, 页签: [1]