if myTable.ChildRelations.count=1 then '有从表
   myRel=myTable.ChildRelations(0)
   ChildTable =myRel.ChildTable
   m=ChildTable.Columns.count-1
   redim bb(m)
   myBool=True
   bb=SetCellSize(ChildTable)
  end if
  
  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 '递归调用时，字段名行形成的Table.id的赋值
   leng=len(signal)
   testTable.id="t" & mid(signal,2,leng-1) & "-0"
   testtable.visible=false
  else
   testTable.id="t" & "0" '初始时,字段名行形成的Table.id
   testTable.visible=true
  end if
  
  form1.controls.add(testtable)
  
  '********** 以下程序为生成表的字段名称行的Table ********************
  
  Row=New tableRow
  Row.borderwidth=unit.pixel(1)
  m=rows.length
  
  if spaces>0 then
   for i=1 to spaces
   cell=new Tablecell
   cell.applyStyle(CellStyle)
   cell.width=unit.pixel(13)
   if not myBool then cell.rowspan=m+1
   row.cells.add(cell)
   next
  end

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

在google里搜索更多用ASP.NET在同一网页中显示主从关系表的相关数据

	Web www.51ec.org

上一篇信息学院： 在Visual C# .NET中建立平滑的进度条…

下一篇信息学院： 用IE的Web服务建立ASP.NET应用程序