Dim repositoryItemCheckedComboBox As DevExpress.XtraEditors.Repository.RepositoryItemCheckedComboBoxEdit
repositoryItemCheckedComboBox = New DevExpress.XtraEditors.Repository.RepositoryItemCheckedComboBoxEdit()
With repositoryItemCheckedComboBox
.Name = "GVcolEditorCheckedComboBox"
.AutoHeight = False
.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
End With
GridControl.RepositoryItems.Add(repositoryItemCheckedComboBox)
'鼠标按下事件
Private Sub GridView_MainMaterial_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles GridView_MainMaterial.MouseDown
With Me.GridView_MainMaterial
If .RowCount = 0 Then Exit Sub
If .FocusedRowHandle < 0 Then Exit Sub
'部位下拉框可多选
If .FocusedColumn.FieldName.ToUpper = "Part