yang686526

请大家帮我看一下这个程序
www.dimcax.com
请大家帮我看一下这个程序
刚学net，编写一个目录绘制程序。先绘制表格，然后从窗体中的datagridview中取得数据填充表格。设定每个表格33行，0行为表头，其余为数据行。运行时问题如下：如果datagridview行数超过32时，开始第二张表格绘图程序时出错。如果表格数据不超过32,即不进入循环，一切ok。代码如下，请大家帮我看一下究竟是怎么回事？我都搞了一天了者没搞定。public sub createtable() dim insertpoint() as point3d, ms1() as integer, ms2() as integer using trans as transaction = db.transactionmanager.starttransaction() '运行到此行出错!! for k as integer = 1 to ceiling((me.datagrid1.rows.count - 1) / 32) 'k控制绘制的页数,每页绘33行 try dim blktbl as blocktable = ctype(trans.getobject(db.blocktableid, openmode.forread), blocktable) dim blktblrec as blocktablerecord = ctype(trans.getobject(blktbl(blocktablerecord.modelspace), openmode.forwrite), blocktablerecord) redim insertpoint(k - 1), ms1(k - 1), ms2(k - 1) ms1(0) = 0 : ms2(0) = 31 if k = 1 then insertpoint(0) = ed.getpoint("选择插入点").value '开始绘制表格 dim ptable as new table with ptable .position = insertpoint(k - 1) .numcolumns = 5 '5列 .numrows = 33 '33例 '初始化表格ptable .isheadersuppressed = true '去掉页眉 .istitlesuppressed = true '去掉标题行 .setcolumnwidth(0, 900) .setcolumnwidth(1, 6400) .setcolumnwidth(2, 4400) .setcolumnwidth(3, 4400) .setcolumnwidth(4, 1900) .settextstring(0, 0, "序 号") .settextstring(0, 1, "图 纸 名 称") .settextstring(0, 2, "新 制 图 号") .settextstring(0, 3, "采 用 图 号") .settextstring(0, 4, "图 幅") .setrowheight(700) '所有行的行高700 .setrowheight(0,
好，先谢谢。我试试看
照一个样所说的改动了，结果还是不行。还是在for k 的主循环中using 那一行出错。如果把using移至for k 内，则在for k 那一行出错。
示例图


1