howTables(mySet as DataSet)
dim spaces as integer=0
dim aa() as integer
dim i,d as integer
dim signal as string=""
dim myTable as dataTable=mySet.tables(0)
dim rows() as DataRow
d=myTable.rows.count-1
redim rows(d)
for i=0 to myTable.rows.count-1
rows(i)=myTable.rows(i)
next
aa=SetCellSize(myTable)
Call ShowChildRows(rows,aa,myTable,spaces,signal)
End Sub
Sub ShowChildRows(rows() as DataRow,aa() as integer,myTable as DataTable,spaces as integer,signal as string)
dim i,j,k,m,leng as integer
dim fontsize as integer=10
dim myRow as DataRow
dim myCol as DataColumn
dim testTable as Table
dim Cell as TableCell
dim Row as TableRow
dim myBool as Boolean
dim myimage as ImageButton
dim ChildRows() as DataRow
dim ChildTable as DataTable
dim myRel as DataRelation
dim bb() as integer
dim CellStyle as new TableItemStyle
cellStyle.borderwidth=unit.pixel(1)
cellStyle.borderstyle=Borderstyle.solid
cellStyle.wrap=false
dim spaces as integer=0
dim aa() as integer
dim i,d as integer
dim signal as string=""
dim myTable as dataTable=mySet.tables(0)
dim rows() as DataRow
d=myTable.rows.count-1
redim rows(d)
for i=0 to myTable.rows.count-1
rows(i)=myTable.rows(i)
next
aa=SetCellSize(myTable)
Call ShowChildRows(rows,aa,myTable,spaces,signal)
End Sub
Sub ShowChildRows(rows() as DataRow,aa() as integer,myTable as DataTable,spaces as integer,signal as string)
dim i,j,k,m,leng as integer
dim fontsize as integer=10
dim myRow as DataRow
dim myCol as DataColumn
dim testTable as Table
dim Cell as TableCell
dim Row as TableRow
dim myBool as Boolean
dim myimage as ImageButton
dim ChildRows() as DataRow
dim ChildTable as DataTable
dim myRel as DataRelation
dim bb() as integer
dim CellStyle as new TableItemStyle
cellStyle.borderwidth=unit.pixel(1)
cellStyle.borderstyle=Borderstyle.solid
cellStyle.wrap=false
| 对此文章发表了评论 |

