Dim ComboTextCol als neues DataGridComboBoxColumn
ComboTextCol.MappingName = „bytNote“ 'muss von der Rasterfeldtabelle sein…
ComboTextCol.HeaderText = „Art“
ComboTextCol.NullText = ""
ComboTextCol.Width = 80
ComboTextCol.ColumnComboBox.DataSource = dsSearch.Tables („Notelist“) 'dv .DefaultView;
ComboTextCol.ColumnComboBox.DisplayMember = „strType“
ComboTextCol.ColumnComboBox.ValueMember = „lngType“
tablestyle.PreferredRowHeight = ComboTextCol.ColumnComboBox.Height + 2
tablestyle.GridColumnStyles.Add (ComboTextCol)
|