用字典
dim dict as new dictionary(of string,string())
dim cols1() as string = {"contractno","contractname"}
dict.add(“contractfile_名称”,cols1)
dim cols2() as string = {"合同编号","合同名称"}
dict.add(“contractfile_标题”,cols1)
dim cols3() as string = {"第一列","第二列"}
dict.add(“表A_名称”,cols3)
dim cols4() as string = {"编号","姓名"}
dict.add(“表A_标题”,cols4)
…… grid.Styles.EmptyArea.Border.Style = C1.Win.C1FlexGrid.BorderStyleEnum.None Table1.SetColVisibleWidth(ColVisible(i)) Table1.ExtendLastCol = True dim cols1() as string = dict(tableName(i) & "_名称") dim cols2() as string = dict(tableName(i) & "_标题") for k as integer = 0 to cols1.length - 1 Table1.DataTable.DataCols(cols1(k)).Caption = cols2(k) Table1.DataTable..BuildHeader next End If Next |