or


//some Subclasses [Category("Detail")] public class WorktypeInfo { private string _WorktypeNo; private string _WorktypeName; [Category("Detail")] public string WorktypeNo { get { return _WorktypeNo; } set { _WorktypeNo = value; } } //used in Mainclass [Category("Detail")] [Description("Tätigkeitscode")] public WorktypeInfo WorktypeInfo { get { return _WorktypeInfo; } set { _WorktypeInfo = value; } } ... Private Sub LoadSupplierCombo() Cursor = Cursors.WaitCursor tsstatus.Text = "Loading Suppliers, please wait..." Refresh() ' cbSuppliers..MasterTemplate.AutoGenerateColumns = True Dim TicketsDA As SqlDataAdapter Dim TicketsDS As DataSet Dim TicketsDV As DataView Dim SQLString As String = "" DBOpen() Try SQLString = "SELECT Supplier.SupplierName AS Supplier, Supplier.SupplierAccountNo AS [Account No] " & _"FROM SZTickets INNER JOIN " & _ " SZTicketStatus ON SZTickets.statusId = SZTicketStatus.id INNER JOIN " & _ " SZTicketPriority ON SZTickets.priorityId = SZTicketPriority.id INNER JOIN " & _ " Supplier ON SZTickets.supplierId = Supplier.SupplierID " & _"GROUP BY Supplier.SupplierName, Supplier.SupplierAccountNo " & _"ORDER BY Supplier DESC" Dim SQLcmd As New SqlCommand(SQLString, cnn1) TicketsDA = New SqlDataAdapter(SQLcmd) TicketsDS = New DataSet TicketsDV = New DataView TicketsDA.Fill(TicketsDS, "Suppliers") TicketsDV.Table = TicketsDS.Tables("Suppliers") cbSuppliers.DataSource = TicketsDV SQLcmd.Dispose() TicketsDA.Dispose() Catch ex As Exception g_error.DBErrorMsg("Failure to load tickets", SQLString, ex) Finally dgTickets.ResumeLayout() DBClose() End Try Cursor = Cursors.Default tsstatus.Text = "" Dim columns As RadMultiColumnComboBoxElement = cbSuppliers.MultiColumnComboBoxElement For Each column As GridViewDataColumn In columns.Columns column.BestFit() Next End Sub
Hi
The above code loads my multi-column list box. However I would like to add <All Suppliers> at the beginning of the list as well as the supplier. I would like this to be the item selected on load.
Also, I cant find the equivalent command for combobox.items.clear()
How do I remove all the items?
Cheers
Bazfor (int iRow = 0; iRow < ProductsRadGridView.Rows.Count; iRow++)
{
for (int iCell = 2; iCell < 6; iCell++)
{
if (ProductsRadGridView.Rows[iRow].Cells[iCell].Style.BackColor == Color.Red)
{
}
//valid = false;
//MessageBox.Show("One or more Line Item Values needs modification. Please make the necessary change.);
//return valid;
}
}
However, the Style.BackColor returns some ambigous name called "ControlDarkDark". This is the value regardless of the back color.
How can I check what the back color really is?
Lee

Dim appt As IEvent = Nothingappt = GetAppointment(CLng(msSearchID))If appt IsNot Nothing Then SchedulerUIHelper.SelectAppointment(radScheduler1, appt, True)End IfPrivate Function GetAppointment(ByVal nID As Long) As IEvent Dim appt As IEvent = Nothing Try For Each a As IEvent In radScheduler1.Appointments If a.UniqueId.KeyValue = CStr(nID) Then appt = a End If Next Return appt Catch ex As Exception Return appt End TryEnd Function