主题：填充空白的代码

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

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

 如果是显示，就用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

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

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