以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 复选框 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71194) |
-- 作者:qianqian1530 -- 发布时间:2015/7/7 9:31:00 -- 复选框 Dim sdae As String = "0" For Each rcsa As Row In Tables("项目_Table1").Rows If rcsa("上传").Checked Then sdae = sdae + 1 End If Next 这个要怎么修改才行呢 rcsa("上传") 是用代码生成的复选框列. |
-- 作者:大红袍 -- 发布时间:2015/7/7 9:39:00 -- Dim sdae As String = "0"
For Each rcsa As Row In Tables("项目_Table1").Rows
If rcsa("上传") Then
sdae = sdae + 1
End If
Next
|