主题：[求助]报表打印中公式问题

写的代码出错，想给报表中第二列序号自动加1　2　3.．．．．，请老师修改指点一下．

                'rt.Cells(rt.Rows.Count-1,2).Text = dr1("sj")
               
                With Tables("ksap") '报表名
                    For ii As Integer = 0 To  .Rows.Count - 1
                        .Rows(ii)("sj") =  ii + 1
                    Next
                End With

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:crks.table