主题：填充空白的代码

怎么样设置代码，让表全部空白的地方都填“未过”。

 整个表全部空白的地方吗？

 是填入值，还是只是让其显示成未过而已？

 如果是显示，就用drawcell事件。

 If e.Row.IsNull(e.Col.Name) Then e.Text = "未过"

 如果要填入值，就这样。做一个按钮

 For Each r As Row In Tables("XXX").Rows
     For Each c As Col In Tables("XXX").Cols
         If r.IsNull(c.Name) Then
             r(c.Name) = "未过"
         End If
     Next
 Next

刚刚没有说清楚，应该是指定某一列，将那一列空白的地方，批量填入“未过”
此主题相关图片如下：捕获.png

 弄个简单的表上来，说明怎么弄。

你看看这个代码，空白的我不知道怎么写代码？

For Each r As Row In Tables("等级").Rows
    r("通过考核_前传_类别") = r("通过考核_前传_类别").Replace("nothing", "未过")
Next

 For Each r As Row In Tables("等级").Rows
    If r.IsNull("通过考核_前传_类别") Then
        r("通过考核_前传_类别") = "未过"
    End If
Next

ok，就是这样，谢谢！