For i = 0 To mcMaxCol
Col = New C1.Win.C1TrueDBGrid.C1DataColumn
intIndex = tdbJi01_f02.Columns.Add(Col)
DisplayColumn = tdbJi01_f02.Splits(0).DisplayColumns(intIndex)
DisplayColumn.HeadingStyle.HorizontalAlignment = C1.Win.C1TrueDBGrid.AlignHorzEnum.Center
With Col
DisplayColumn.Visible = True
DisplayColumn.AllowSizing = False
Select Case i
Case COL_CENTERCD
.Caption = "物流"
DisplayColumn.Style.HorizontalAlignment = C1.Win.C1TrueDBGrid.AlignHorzEnum.Near
DisplayColumn.Width = TextWidth("_", myFont) - 21
DisplayColumn.Style.HorizontalAlignment = C1.Win.C1TrueDBGrid.AlignHorzEnum.Near
DisplayColumn.AutoDropDown = True
DisplayColumn.DropDownList = True
DisplayColumn.Button = True
''
For Y = LBound(mCenterArr) To UBound(mCenterArr)
oValueItem = New C1.Win.C1TrueDBGrid.ValueItem
oValueItem.DisplayValue = mCenterArr(Y).centercd & Space(3) & mCenterArr(Y).Centernm
oValueItem.Value = mCenterArr(Y).centercd
.ValueItems.Values.Add(oValueItem)
Next
.ValueItems.Translate = True
.ValueItems.Validate = False
.ValueItems.MaxComboItems = 10
.ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.ComboBox
DisplayColumn.Style.BackColor = System.Drawing.ColorTranslator.FromOle(mcBlue) |