以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求一刷新公式单元格的表述  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=42247)
--  作者：老有所乐
--  发布时间：2013/11/6 22:04:00
--  求一刷新公式单元格的表述
如表A的当前行的上一行第三列不为空代码如何写,谢谢
--  作者：有点甜
--  发布时间：2013/11/6 22:13:00
--  
 \'当前行
 dim r as row = tables("xxx").current

 \'当前行不是第一行
 if r.index > 0 then
     dim pr as row = tables("xxx").rows(r.index - 1)
     if pr("第三列") isnot nothing then
          msgbox("第三列不为空")
     end if
 end if
--  作者：老有所乐
--  发布时间：2013/11/6 22:31:00
--  
谢谢,好像显示的还是当前行,不是当前行的上一行
--  作者：有点甜
--  发布时间：2013/11/6 22:35:00
--  
 呵呵，写错了，应该这样写

\'当前行
 Dim r As Row = Tables("xxx").current

 \'当前行不是第一行
 If r.index > 0 Then
     Dim pr As Row = Tables("xxx").rows(r.index - 1)
     If pr.isnull("第三列") = false  Then
          msgbox("第三列不为空")
     End If
 End If
--  作者：老有所乐
--  发布时间：2013/11/6 22:48:00
--  
谢谢!