Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Combo Boxes.
Message
From
09/12/2003 16:59:10
Jim Rieck
Quicken Loans/Rock Financial/Title Sourc
Livonia, Michigan, United States
 
 
To
09/12/2003 16:57:48
General information
Forum:
ASP.NET
Category:
Forms
Title:
Miscellaneous
Thread ID:
00857406
Message ID:
00857433
Views:
26
With the property sheet. The thing is that I'm not setting the one for the project combo.

Jim

>Jim,
>
>I don't see any code for setting the DataSource for the ComboBoxes ... how are you doing that?
>
>~~Bonnie
>
>>Here is some code...
>>
>>
>>    Private Sub setConnections()
>>        Dim oTimeTracker As New TimeTrackerClass(True)
>>        contimecollection.ConnectionString = oTimeTracker.getconnectionstring()
>>        daProjects.SelectCommand.Connection = contimecollection
>>        daTasks.SelectCommand.Connection = contimecollection
>>        daResources.SelectCommand.Connection = contimecollection
>>        daTaskdtl.SelectCommand.Connection = contimecollection
>>        daOpCodes.SelectCommand.Connection = contimecollection
>>    End Sub
>>
>>    Private Sub TimeCollection_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
>>        setConnections()
>>        getProjects()
>>        RefreshCombos()
>>        getopcodes()
>>    End Sub
>>
>>    Private Sub RefreshCombos()
>>        setConnections()
>>        getTasks()
>>        getResources()
>>        getTaskDetails()
>>
>>    End Sub
>>
>>    Private Sub getopcodes()
>>        daOpCodes.Fill(dsTimeCollection, "opcode")
>>    End Sub
>>
>>    Private Sub getTaskDetails()
>>        Try
>>            daTaskdtl.SelectCommand.Parameters("@taskhdr_id").Value = cboTasks.SelectedValue
>>            daTaskdtl.Fill(dsTimeCollection, "task_detail")
>>        Catch exp As Exception
>>            MessageBox.Show(exp.Message)
>>        End Try
>>    End Sub
>>
>>    Private Sub getResources()
>>        daResources.Fill(dsTimeCollection, "resources")
>>    End Sub
>>
>>    Private Sub getTasks()
>>        daTasks.SelectCommand.Parameters("@project_id").Value = cboProjects.SelectedValue
>>        daTasks.Fill(dsTimeCollection, "task_header")
>>    End Sub
>>
>>    Private Sub getProjects()
>>        daProjects.Fill(dsTimeCollection, "Project")
>>    End Sub
>>
>>    Private Sub cboProjects_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboProjects.SelectedIndexChanged
>>        RefreshCombos()
>>    End Sub
>>
>>
>>>Jim,
>>>
>>>Post some code ...
>>>
>>>~~Bonnie
Thanks

Jim
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform