- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 填充空白的代码 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=28368)
-- 发布时间：2013/1/26 16:13:00
-- 填充空白的代码
怎么样设置代码，让表全部空白的地方都填“未过”。
-- 发布时间：2013/1/26 16:21:00
--
整个表全部空白的地方吗？
是填入值，还是只是让其显示成未过而已？
如果是显示，就用drawcell事件。
If e.Row.IsNull(e.Col.Name) Then e.Text = "未过"
-- 发布时间：2013/1/26 16:24:00
--
如果要填入值，就这样。做一个按钮
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
-- 发布时间：2013/1/26 16:30:00
-- 回复：（lin_hailun）?整个表全部空白的地方吗？...
刚刚没有说清楚，应该是指定某一列，将那一列空白的地方，批量填入“未过”
此主题相关图片如下：捕获.png
[此贴子已经被作者于2013-1-26 16:30:38编辑过]
-- 发布时间：2013/1/26 16:32:00
--
弄个简单的表上来，说明怎么弄。
-- 发布时间：2013/1/26 16:34:00
--
你看看这个代码，空白的我不知道怎么写代码？
For Each r As Row In Tables("等级").Rows
r("通过考核_前传_类别") = r("通过考核_前传_类别").Replace("nothing", "未过")
Next
[此贴子已经被作者于2013-1-26 16:34:04编辑过]
-- 发布时间：2013/1/26 16:38:00
--
For Each r As Row In Tables("等级").Rows
If r.IsNull("通过考核_前传_类别") Then
r("通过考核_前传_类别") = "未过"
End If
Next
-- 发布时间：2013/1/26 16:54:00
--
ok，就是这样，谢谢！