Author: JMicke | Posted on: 10/26/2010 2:30:21 AM | Views : 227

Here's the code:
Protected Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList1.SelectedIndexChanged Dim SQL As String Dim Fraktioner() As Single, F As Integer = 0 DropDownList2.Enabled = True SIDarr.Clear() SQL = "SELECT DISTINCTROW * FROM Utrustningar left JOIN (SiktTyp right JOIN (KalibreringsInfo right JOIN (Fraktioner right JOIN Siktar " SQL += "ON [Fraktioner].[FraktId] =[Siktar].[FrId]) ON [KalibreringsInfo].[KaId] =[Siktar].[KIID]) ON [SiktTyp].[STID] =[Siktar].[STID]) " SQL += "ON [Utrustningar].[SUID] =[Siktar].[SUID] " SQL += "WHERE ((Fraktioner.IsAktiv)=True) AND ((Siktar.IsAktiv)=True) AND (([Utrustningar].[SUID] = " + DropDownList1.SelectedValue + "))" SqlDataSource3.SelectCommand = SQL Dim dvSql As Data.DataView = DirectCast(SqlDa ...

Go to the complete details ...