16,717
社区成员
发帖
与我相关
我的任务
分享
Dim Cs As C1.Win.C1FlexGrid.CellStyle = C1FlexGrid1.Styles.Add("")
Cs.ComboList = "A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y|Z|A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y|Z"
C1FlexGrid1.SetCellStyle(1, 1, Cs)
Dim Dtab As DataTable
Dtab = App.ExecuteSql(txtSQL, myCon)
If Dtab.Rows.Count > 0 Then
Me.CfgData.DataSource = Dtab
End If
'导出EXCEL
Dim filename As String = "C:\" & Me.Text & Format(Now, "hhMMss") & ".xls"
CFGdata.SaveGrid(filename, C1.Win.C1FlexGrid.FileFormatEnum.Excel, _ C1.Win.C1FlexGrid.FileFlags.IncludeFixedCells)