| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 统计隐藏行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=100111) |
| -- 作者：yangwenghd -- 发布时间：2017/5/4 23:23:00 -- 统计隐藏行 能帮忙看看这个 用代码异常 一些行 ，同时也能用代码统计出来。 感谢 感谢 隐藏的代码 Dim s As String For i As Integer = Tables("单词").Rows.Count - 1 To 0 Step - 1 For j As Integer = 0 To Tables("单词").Cols.Count - 1 If Tables("单词").Cols(j).Name = "目录_状态" Then s + = Tables("单词").Text(i,j) & "," End If Next If s > "" Then If s.Trim(",") = "已完成" Then Tables("单词").Rows(i).DataRow.Remove() End If End If s = "" Next 统计的代码 Forms("主窗口").Controls("Label9").Text = DataTables("单词").Compute("count(目录_状态)","目录_状态 = \'已完成\'") 就是执行了隐藏代码后 Label9 还是能统计出 表内“目录_状态”列 所有的 已完成 行 感谢 感谢
|
| -- 作者：有点色 -- 发布时间：2017/5/4 23:27:00 -- DataTables 改成 Tables [此贴子已经被作者于2017/5/4 23:26:45编辑过]
|
| -- 作者：有点色 -- 发布时间：2017/5/4 23:28:00 -- 或者是，循环每一行，累加得出结果。 |
| -- 作者：yangwenghd -- 发布时间：2017/5/5 23:21:00 -- 感谢 感谢 没有反映呢 感谢 |
| -- 作者：有点蓝 -- 发布时间：2017/5/6 8:40:00 -- DataTables("单词").RemoveFor("目录_状态 = \'已完成\'") Forms("主窗口").Controls("Label9").Text = DataTables("单词").Compute("count(目录_状态)","目录_状态 = \'已完成\'")
|