'获取要显示的列
Dim fpExcel As FarPoint.Web.Spread.FpSpread
'填充Excel的一个Sheet
fpExcel.Sheets(m).Protect = False
fpExcel.Sheets(m).ColumnCount =ColumnCount
fpExcel.Sheets(m).RowCount = RowCount
fpExcel.Sheets(m).DefaultStyle.Font.Size = FontUnit.Parse("9px")
fpExcel.Sheets(m).DefaultStyle.Border.BorderSize = 1
fpExcel.Sheets(m).DefaultStyle.VerticalAlign = VerticalAlign.Middle
fpExcel.Sheets(m).Rows(0).Font.Bold = True
fpExcel.Sheets(m).Rows(0).BackColor = Color.FromArgb(212, 208, 200)
fpExcel.Sheets(m).Rows(0).HorizontalAlign = HorizontalAlign.Center
fpExcel.Sheets(m).Columns(0).HorizontalAlign = HorizontalAlign.Center
Dim i, j As Integer
For i = 0 To fpExcel.Sheets(m).ColumnCount - 1
fpExcel.Sheets(m).Columns(i).CellType = New FarPoint.Web.Spread.TextCellType
Next
'序号列
fpExcel.Sheets(m).Cells(0, 0).Text ="序号"
fpExcel.Sheets(m).Cells(0, 0).Tag = 0
'填充数据
For i = 0 To dvTable.Count - 1
fpExcel.Sheets(m).Cells(i + 1, 0).Text = i + 1
For j = 1 To fpExcel.Sheets(m).ColumnCount - 1
fpExcel.Sheets(m).Cells(i + 1, j).Text = dvTable(i)(j)
Next
Next