Dim rt As New prt.RenderTable
Dim cmd As New SQLCommand '定义一个SQL命令
cmd.C
Dim dt As DataTable '定义一个数据表变量
Dim Count As Integer = 0
'生成临时表
cmd.CommandText =
dt = cmd.ExecuteReader()
wb.AddPageTitle("","pageheader1", "运营状况" )
If dt.DataRows.Count > 0 Then
With wb.AddTable("","Table1")
.CreateFromDataTable(dt)
End With
End If
能对table1定义Cols.Frozen 吗,能的话怎么写?
tables(table1).Cols.Frozen = 3