Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Combo Boxes.
Message
From
09/12/2003 16:57:48
 
 
To
09/12/2003 16:49:35
Jim Rieck
Quicken Loans/Rock Financial/Title Sourc
Livonia, Michigan, United States
General information
Forum:
ASP.NET
Category:
Forms
Title:
Miscellaneous
Thread ID:
00857406
Message ID:
00857432
Views:
24
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
Bonnie Berent DeWitt
NET/C# MVP since 2003

http://geek-goddess-bonnie.blogspot.com
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform