if
if myBool then
cell=new Tablecell
cell.applystyle(CellStyle)
cell.backcolor=color.lightgray
cell.bordercolor=color.black
cell.width=unit.pixel(13)
row.cells.add(cell)
end if
m=myTable.Columns.count-1
for i=0 to m
Cell=new tableCell
dim str2 as string
cell.applystyle(cellstyle)
cell.backcolor=color.lightgray
cell.bordercolor=color.black
cell.text= myTable.columns(i).columnName
cell.HorizontalAlign=HorizontalAlign.Center
k=(fontsize+6)*aa(i)
cell.width=unit.pixel(k)
row.Cells.add(cell)
next
testtable.Rows.add(row)
'************* 以下程序为生成表的各行纪录的Tables *********************
for i=0 to rows.length-1
if myBool then
testTable=New table
testTable.borderwidth=unit.pixel(1)
testTable.cellspacing=0
testtable.cellPadding=0
testTable.font.name="宋体"
testTable.font.size=fontunit.point(fontsize)
testTable.visible=true
if signal<>"" then
testTable.id="t" & mid(signal,2,leng-1) & "-" & (i+1).tostring
testtable.visible=false
else
 
if myBool then
cell=new Tablecell
cell.applystyle(CellStyle)
cell.backcolor=color.lightgray
cell.bordercolor=color.black
cell.width=unit.pixel(13)
row.cells.add(cell)
end if
m=myTable.Columns.count-1
for i=0 to m
Cell=new tableCell
dim str2 as string
cell.applystyle(cellstyle)
cell.backcolor=color.lightgray
cell.bordercolor=color.black
cell.text= myTable.columns(i).columnName
cell.HorizontalAlign=HorizontalAlign.Center
k=(fontsize+6)*aa(i)
cell.width=unit.pixel(k)
row.Cells.add(cell)
next
testtable.Rows.add(row)
'************* 以下程序为生成表的各行纪录的Tables *********************
for i=0 to rows.length-1
if myBool then
testTable=New table
testTable.borderwidth=unit.pixel(1)
testTable.cellspacing=0
testtable.cellPadding=0
testTable.font.name="宋体"
testTable.font.size=fontunit.point(fontsize)
testTable.visible=true
if signal<>"" then
testTable.id="t" & mid(signal,2,leng-1) & "-" & (i+1).tostring
testtable.visible=false
else
 
| 对此文章发表了评论 |

