- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 取上行值 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101595)
-- 发布时间：2017/6/3 16:42:00
-- 取上行值
此主题相关图片如下：1.png
-- 发布时间：2017/6/3 17:38:00
--
是不是所有为空的行都这样处理，还是只是指定的行
-- 发布时间：2017/6/3 17:41:00
--
所有空行
-- 发布时间：2017/6/3 17:43:00
--
此主题相关图片如下：2.png
For Each r As Row In Tables("原料入库").Rows
If r.Isnull("日期") Then
Dim i As Integer
Dim j As Integer
j = r("_identify")
i = r("_identify") - 1
r("日期") = Tables("原料入库").Rows(i)("日期")
output.show(j)
End If
Next
这样写没有反应
[此贴子已经被作者于2017/6/3 17:43:53编辑过]
-- 发布时间：2017/6/3 17:47:00
--
此主题相关图片如下：3.png
此主题相关图片如下：4.png
用index 更合适点
[此贴子已经被作者于2017/6/3 18:02:57编辑过]
-- 发布时间：2017/6/3 17:54:00
--
For i As Integer = 1 To Tables("原料入库").Rows.Count - 1
Dim r As Row = Tables("原料入库").Rows(i)
If r.Isnull("日期") Then
r("日期") = Tables("原料入库").Rows(i-1)("日期")
End If
Next
-- 发布时间：2017/6/3 18:04:00
--
谢谢