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
Baz
for (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 =
Nothing
appt = GetAppointment(
CLng
(msSearchID))
If
appt IsNot
Nothing
Then
SchedulerUIHelper.SelectAppointment(radScheduler1, appt,
True
)
End
If
Private
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
Try
End
Function