以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  继续讨教  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=81466)

--  作者：hbhb --  发布时间：2016/2/28 16:10:00 --  继续讨教 大师：如实例，请问如何通过代码处理表a为表b的记录结果？  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项目1.zip

--  作者：大红袍 --  发布时间：2016/2/28 16:21:00 --   Dim pr As Row = Nothing For Each r As Row In Tables("表A").rows     If r.IsNull("第一列") Then         r("第一列") = pr("第一列") & "." & format(r.Index - pr.Index, "00")         r("第二列") = pr("第二列") & "-" & r("第三列")     Else         pr = r     End If Next

--  作者：hbhb --  发布时间：2016/2/28 17:24:00 --   谢谢！如果第一行为空，为何会出错？

--  作者：大红袍 --  发布时间：2016/2/28 17:28:00 --   Dim pr As Row = Nothing For Each r As Row In Tables("表A").rows     If r.IsNull("第一列") AndAlso r.IsNull("第三列") = False Then         r("第一列") = pr("第一列") & "." & format(r.Index - pr.Index, "00")         r("第二列") = pr("第二列") & "-" & r("第三列")     Else         pr = r     End If Next