or
cboCategory.FieldName =
"Category"
'cboCategory.HeaderText = "Category"
cboCategory.DataSource = objDT
cboCategory.ValueMember =
"Category"
cboCategory.DisplayMember =
"Category"
'cboCategory.Width = 0.2 * Me.RadQueuedFiles.Width
cboCategory.AutoSizeMode = BestFitColumnMode.DisplayedDataCells
'cboCategory.BestFit()
Put this in the startup code (After the fill.database:
InitializeTimeZones()
Here is The VB coding.
Private
Sub
InitalizeTimeZones()
ddTimeZones.SortStyle = Telerik.WinControls.Enumerations.SortStyle.Ascending
ddTimeZones.DataSource = Time.GetSchedulerTimeZones
ddTimeZones.DisplayMember =
"List"
End
Sub
Private
Sub
RadButton1_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
RadButton1.Click
RadScheduler1.ActiveView.DefaultTimeZone =
DirectCast
(ddTimeZones.SelectedValue, SchedulerTimeZone)
End
Sub
Private
Sub
RadButton2_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
RadButton2.Click
Dim
view
As
SchedulerDayViewBase = TryCast(RadScheduler1.ActiveView, SchedulerDayViewBase)
If
view IsNot
Nothing
Then
view.TimeZones.Add(
DirectCast
(ddTimeZones.SelectedValue, SchedulerTimeZone))
End
If
End
Sub
RadQueuedFiles.Columns.Add(New GridViewTextBoxColumn("GUID"))
RadQueuedFiles.Columns.Add(New GridViewTextBoxColumn("P_ID"))
RadQueuedFiles.Columns.Add(New GridViewTextBoxColumn("T_ID"))
RadQueuedFiles.Columns.Add(New GridViewTextBoxColumn("Project_Name"))
RadQueuedFiles.Columns.Add(New GridViewTextBoxColumn("T Information"))
RadQueuedFiles.Columns.Add(New GridViewTextBoxColumn("File_Path"))
RadQueuedFiles.Columns.Add(New GridViewTextBoxColumn("File Name"))
RadQueuedFiles.MasterTemplate.AllowAddNewRow = False
RadQueuedFiles.AutoSizeRows = True
RadQueuedFiles.Columns(0).IsVisible = False
RadQueuedFiles.Columns(1).IsVisible = False
RadQueuedFiles.Columns(2).IsVisible = False
RadQueuedFiles.Columns(3).Width = 0.15 * Me.RadQueuedFiles.Width
RadQueuedFiles.Columns(4).DisableHTMLRendering = False
RadQueuedFiles.Columns(4).Width = 0.55 * Me.RadQueuedFiles.Width
RadQueuedFiles.Columns(5).IsVisible = False
RadQueuedFiles.Columns(6).Width = 0.35 * Me.RadQueuedFiles.Width
RadQueuedFiles.AllowEditRow = False
RadQueuedFiles.AllowAddNewRow = False
Dim descriptor As New GroupDescriptor()
descriptor.GroupNames.Add("Project_Name", System.ComponentModel.ListSortDirection.Ascending)
Me.RadQueuedFiles.GroupDescriptors.Add(descriptor)
RadQueuedFiles.Rows.Add(Guid.NewGuid, cboProjectName.SelectedValue, RadT.CurrentRow.Cells(0).Value, cboProjectName.Text, strProjectIdentifier, file, file.Split(
"\")(file.Split("\").Count - 1))
What am I missing?