能帮忙看看这个 用代码异常 一些行 ，同时也能用代码统计出来。感谢 感谢
隐藏的代码
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 还是能统计出 表内“目录_状态”列 所有的 已完成 行 感谢 感谢
加好友 
发短信
Post By：2017/5/4 23:23:00 [只看该作者]
