Hi all
I want to add 3 dropdown lists in my web form.
They are Location, Pool, and Name, which are related each other depending
on the selection of
the former dropdown list.(Just adding 3 lists(Not related) is also fine)
I am new to this field, and need your help~!
It has been bugging me for couple of days and I have no time...
Please advise how to do or show me the VB syntax to add those dropdown
lists..
Any suggestion will be greatly appreciated!!!
Here's my source code below.


Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Public Class WebForm1
    Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
        Me.OleDbDataAdapter1 = New System.Data.OleDb.OleDbDataAdapter
        Me.OleDbSelectCommand1 = New System.Data.OleDb.OleDbCommand
        Me.OleDbConnection1 = New System.Data.OleDb.OleDbConnection
        Me.EmployeeVacation1 = New Retry_Evolve.EmployeeVacation
        Me.OleDbDataAdapter2 = New System.Data.OleDb.OleDbDataAdapter
        Me.OleDbDeleteCommand1 = New System.Data.OleDb.OleDbCommand
        Me.OleDbInsertCommand1 = New System.Data.OleDb.OleDbCommand
        Me.OleDbSelectCommand2 = New System.Data.OleDb.OleDbCommand
        Me.OleDbUpdateCommand1 = New System.Data.OleDb.OleDbCommand
        Me.Staffing1 = New Retry_Evolve.Staffing
        Me.OleDbDataAdapter3 = New System.Data.OleDb.OleDbDataAdapter
        Me.OleDbDeleteCommand2 = New System.Data.OleDb.OleDbCommand
        Me.OleDbInsertCommand2 = New System.Data.OleDb.OleDbCommand
        Me.OleDbSelectCommand3 = New System.Data.OleDb.OleDbCommand
        Me.OleDbUpdateCommand2 = New System.Data.OleDb.OleDbCommand
        Me.Pool1 = New Retry_Evolve.Pool
        Me.OleDbDataAdapter4 = New System.Data.OleDb.OleDbDataAdapter
        Me.OleDbInsertCommand3 = New System.Data.OleDb.OleDbCommand
        Me.OleDbSelectCommand4 = New System.Data.OleDb.OleDbCommand
        Me.Resource1 = New Retry_Evolve.Resource
        CType(Me.EmployeeVacation1,
System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.Staffing1, System.ComponentModel.ISupportInitialize)
..BeginInit()
        CType(Me.Pool1, System.ComponentModel.ISupportInitialize).BeginInit
()
        CType(Me.Resource1, System.ComponentModel.ISupportInitialize)
..BeginInit()
        '
        'OleDbDataAdapter1
        '
        Me.OleDbDataAdapter1.SelectCommand = Me.OleDbSelectCommand1
        Me.OleDbDataAdapter1.TableMappings.AddRange(New
System.Data.Common.DataTableMapping() {New
System.Data.Common.DataTableMapping("Table", "BRT_sp_EmployeeVacation", New
System.Data.Common.DataColumnMapping() {New
System.Data.Common.DataColumnMapping("OID", "OID"), New
System.Data.Common.DataColumnMapping("ResourcePoolName", "ResourcePoolName")
, New System.Data.Common.DataColumnMapping("ResourceName", "ResourceName"),
New System.Data.Common.DataColumnMapping("End_Of_Year_Carryover",
"End_Of_Year_Carryover"), New System.Data.Common.DataColumnMapping
("Annual_Vacation_Entitlement", "Annual_Vacation_Entitlement"), New
System.Data.Common.DataColumnMapping("Vacation_Accrued_YTD",
"Vacation_Accrued_YTD"), New System.Data.Common.DataColumnMapping
("Vacation_Taken_YTD", "Vacation_Taken_YTD"), New
System.Data.Common.DataColumnMapping("Future_Vacation_This_Year",
"Future_Vacation_This_Year"), New System.Data.Common.DataColumnMapping
("Current_Entitlement", "Current_Entitlement"), New
System.Data.Common.DataColumnMapping("Company_Liability",
"Company_Liability"), New System.Data.Common.DataColumnMapping
("Carry_Over_Year", "Carry_Over_Year")})})
        '
        'OleDbSelectCommand1
        '
        Me.OleDbSelectCommand1.CommandText = "[BRT_sp_EmployeeVacation]"
        Me.OleDbSelectCommand1.CommandType =
System.Data.CommandType.StoredProcedure
        Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1
        Me.OleDbSelectCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("@RETURN_VALUE",
System.Data.OleDb.OleDbType.Integer, 4,
System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0,
Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.OleDbSelectCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("@sqldrp_Location",
System.Data.OleDb.OleDbType.VarChar, 255))
        Me.OleDbSelectCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("@sqldrp_ResourcePool",
System.Data.OleDb.OleDbType.VarChar, 255))
        Me.OleDbSelectCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("@sqldrp_ResourceName",
System.Data.OleDb.OleDbType.VarChar, 255))
        '
        'OleDbConnection1
        '
        Me.OleDbConnection1.ConnectionString = "Integrated
Security=SSPI;Packet Size=4096;Data Source=""***.***.***.***"";Tag with " &
_
        "column collation when possible=False;Initial Catalog=EVSSDB;Use
Procedure for Pr" & _
        "epare=1;Auto Translate=True;Persist Security
Info=False;Provider=""SQLOLEDB.1"";Wo" & _
        "rkstation ID=EHEIKKILA;Use Encryption for Data=False"
        '
        'EmployeeVacation1
        '
        Me.EmployeeVacation1.DataSetName = "EmployeeVacation"
        Me.EmployeeVacation1.Locale = New System.Globalization.CultureInfo
("en-US")
        '
        'OleDbDataAdapter2
        '
        Me.OleDbDataAdapter2.DeleteCommand = Me.OleDbDeleteCommand1
        Me.OleDbDataAdapter2.InsertCommand = Me.OleDbInsertCommand1
        Me.OleDbDataAdapter2.SelectCommand = Me.OleDbSelectCommand2
        Me.OleDbDataAdapter2.TableMappings.AddRange(New
System.Data.Common.DataTableMapping() {New
System.Data.Common.DataTableMapping("Table", "StaffingLocationC195V0", New
System.Data.Common.DataColumnMapping() {New
System.Data.Common.DataColumnMapping("name11V0", "name11V0"), New
System.Data.Common.DataColumnMapping("OID", "OID")})})
        Me.OleDbDataAdapter2.UpdateCommand = Me.OleDbUpdateCommand1
        '
        'OleDbDeleteCommand1
        '
        Me.OleDbDeleteCommand1.CommandText = "DELETE FROM
StaffingLocationC195V0 WHERE (OID = ?) AND (name11V0 = ? OR ? IS NULL" & _
        " AND name11V0 IS NULL)"
        Me.OleDbDeleteCommand1.Connection = Me.OleDbConnection1
        Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_OID",
System.Data.OleDb.OleDbType.Decimal, 9,
System.Data.ParameterDirection.Input, False, CType(19, Byte), CType(0, Byte)
, "OID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_name11V0",
System.Data.OleDb.OleDbType.VarChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte)
, "name11V0", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_name11V01",
System.Data.OleDb.OleDbType.VarChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte)
, "name11V0", System.Data.DataRowVersion.Original, Nothing))
        '
        'OleDbInsertCommand1
        '
        Me.OleDbInsertCommand1.CommandText = "INSERT INTO
StaffingLocationC195V0(name11V0, OID) VALUES (?, ?); SELECT name11V0," & _
        " OID FROM StaffingLocationC195V0 WHERE (OID = ?)"
        Me.OleDbInsertCommand1.Connection = Me.OleDbConnection1
        Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("name11V0",
System.Data.OleDb.OleDbType.VarChar, 255, "name11V0"))
        Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("OID",
System.Data.OleDb.OleDbType.Decimal, 9,
System.Data.ParameterDirection.Input, False, CType(19, Byte), CType(0, Byte)
, "OID", System.Data.DataRowVersion.Current, Nothing))
        Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Select_OID",
System.Data.OleDb.OleDbType.Decimal, 9,
System.Data.ParameterDirection.Input, False, CType(19, Byte), CType(0, Byte)
, "OID", System.Data.DataRowVersion.Current, Nothing))
        '
        'OleDbSelectCommand2
        '
        Me.OleDbSelectCommand2.CommandText = "SELECT name11V0, OID FROM
StaffingLocationC195V0"
        Me.OleDbSelectCommand2.Connection = Me.OleDbConnection1
        '
        'OleDbUpdateCommand1
        '
        Me.OleDbUpdateCommand1.CommandText = "UPDATE StaffingLocationC195V0
SET name11V0 = ?, OID = ? WHERE (OID = ?) AND (name" & _
        "11V0 = ? OR ? IS NULL AND name11V0 IS NULL); SELECT name11V0, OID
FROM StaffingL" & _
        "ocationC195V0 WHERE (OID = ?)"
        Me.OleDbUpdateCommand1.Connection = Me.OleDbConnection1
        Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("name11V0",
System.Data.OleDb.OleDbType.VarChar, 255, "name11V0"))
        Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("OID",
System.Data.OleDb.OleDbType.Decimal, 9,
System.Data.ParameterDirection.Input, False, CType(19, Byte), CType(0, Byte)
, "OID", System.Data.DataRowVersion.Current, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_OID",
System.Data.OleDb.OleDbType.Decimal, 9,
System.Data.ParameterDirection.Input, False, CType(19, Byte), CType(0, Byte)
, "OID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_name11V0",
System.Data.OleDb.OleDbType.VarChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte)
, "name11V0", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_name11V01",
System.Data.OleDb.OleDbType.VarChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte)
, "name11V0", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Select_OID",
System.Data.OleDb.OleDbType.Decimal, 9,
System.Data.ParameterDirection.Input, False, CType(19, Byte), CType(0, Byte)
, "OID", System.Data.DataRowVersion.Current, Nothing))
        '
        'Staffing1
        '
        Me.Staffing1.DataSetName = "Staffing"
        Me.Staffing1.Locale = New System.Globalization.CultureInfo("en-US")
        '
        'OleDbDataAdapter3
        '
        Me.OleDbDataAdapter3.DeleteCommand = Me.OleDbDeleteCommand2
        Me.OleDbDataAdapter3.InsertCommand = Me.OleDbInsertCommand2
        Me.OleDbDataAdapter3.SelectCommand = Me.OleDbSelectCommand3
        Me.OleDbDataAdapter3.TableMappings.AddRange(New
System.Data.Common.DataTableMapping() {New
System.Data.Common.DataTableMapping("Table", "PoolC278V0", New
System.Data.Common.DataColumnMapping() {New
System.Data.Common.DataColumnMapping("name11V0", "name11V0"), New
System.Data.Common.DataColumnMapping("OID", "OID")})})
        Me.OleDbDataAdapter3.UpdateCommand = Me.OleDbUpdateCommand2
        '
        'OleDbDeleteCommand2
        '
        Me.OleDbDeleteCommand2.CommandText = "DELETE FROM PoolC278V0 WHERE
(OID = ?) AND (name11V0 = ? OR ? IS NULL AND name11V" & _
        "0 IS NULL)"
        Me.OleDbDeleteCommand2.Connection = Me.OleDbConnection1
        Me.OleDbDeleteCommand2.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_OID",
System.Data.OleDb.OleDbType.Decimal, 9,
System.Data.ParameterDirection.Input, False, CType(19, Byte), CType(0, Byte)
, "OID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand2.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_name11V0",
System.Data.OleDb.OleDbType.VarChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte)
, "name11V0", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand2.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_name11V01",
System.Data.OleDb.OleDbType.VarChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte)
, "name11V0", System.Data.DataRowVersion.Original, Nothing))
        '
        'OleDbInsertCommand2
        '
        Me.OleDbInsertCommand2.CommandText = "INSERT INTO PoolC278V0
(name11V0, OID) VALUES (?, ?); SELECT name11V0, OID FROM Po" & _
        "olC278V0 WHERE (OID = ?)"
        Me.OleDbInsertCommand2.Connection = Me.OleDbConnection1
        Me.OleDbInsertCommand2.Parameters.Add(New
System.Data.OleDb.OleDbParameter("name11V0",
System.Data.OleDb.OleDbType.VarChar, 255, "name11V0"))
        Me.OleDbInsertCommand2.Parameters.Add(New
System.Data.OleDb.OleDbParameter("OID",
System.Data.OleDb.OleDbType.Decimal, 9,
System.Data.ParameterDirection.Input, False, CType(19, Byte), CType(0, Byte)
, "OID", System.Data.DataRowVersion.Current, Nothing))
        Me.OleDbInsertCommand2.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Select_OID",
System.Data.OleDb.OleDbType.Decimal, 9,
System.Data.ParameterDirection.Input, False, CType(19, Byte), CType(0, Byte)
, "OID", System.Data.DataRowVersion.Current, Nothing))
        '
        'OleDbSelectCommand3
        '
        Me.OleDbSelectCommand3.CommandText = "SELECT name11V0, OID FROM
PoolC278V0"
        Me.OleDbSelectCommand3.Connection = Me.OleDbConnection1
        '
        'OleDbUpdateCommand2
        '
        Me.OleDbUpdateCommand2.CommandText = "UPDATE PoolC278V0 SET
name11V0 = ?, OID = ? WHERE (OID = ?) AND (name11V0 = ? OR " & _
        "? IS NULL AND name11V0 IS NULL); SELECT name11V0, OID FROM
PoolC278V0 WHERE (OID" & _
        " = ?)"
        Me.OleDbUpdateCommand2.Connection = Me.OleDbConnection1
        Me.OleDbUpdateCommand2.Parameters.Add(New
System.Data.OleDb.OleDbParameter("name11V0",
System.Data.OleDb.OleDbType.VarChar, 255, "name11V0"))
        Me.OleDbUpdateCommand2.Parameters.Add(New
System.Data.OleDb.OleDbParameter("OID",
System.Data.OleDb.OleDbType.Decimal, 9,
System.Data.ParameterDirection.Input, False, CType(19, Byte), CType(0, Byte)
, "OID", System.Data.DataRowVersion.Current, Nothing))
        Me.OleDbUpdateCommand2.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_OID",
System.Data.OleDb.OleDbType.Decimal, 9,
System.Data.ParameterDirection.Input, False, CType(19, Byte), CType(0, Byte)
, "OID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand2.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_name11V0",
System.Data.OleDb.OleDbType.VarChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte)
, "name11V0", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand2.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_name11V01",
System.Data.OleDb.OleDbType.VarChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte)
, "name11V0", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand2.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Select_OID",
System.Data.OleDb.OleDbType.Decimal, 9,
System.Data.ParameterDirection.Input, False, CType(19, Byte), CType(0, Byte)
, "OID", System.Data.DataRowVersion.Current, Nothing))
        '
        'Pool1
        '
        Me.Pool1.DataSetName = "Pool"
        Me.Pool1.Locale = New System.Globalization.CultureInfo("en-US")
        '
        'OleDbDataAdapter4
        '
        Me.OleDbDataAdapter4.InsertCommand = Me.OleDbInsertCommand3
        Me.OleDbDataAdapter4.SelectCommand = Me.OleDbSelectCommand4
        Me.OleDbDataAdapter4.TableMappings.AddRange(New
System.Data.Common.DataTableMapping() {New
System.Data.Common.DataTableMapping("Table", "BRT_vw_rep_resource", New
System.Data.Common.DataColumnMapping() {New
System.Data.Common.DataColumnMapping("name", "name")})})
        '
        'OleDbInsertCommand3
        '
        Me.OleDbInsertCommand3.CommandText = "INSERT INTO
BRT_vw_rep_resource(name) VALUES (?); SELECT name FROM BRT_vw_rep_res" & _
        "ource"
        Me.OleDbInsertCommand3.Connection = Me.OleDbConnection1
        Me.OleDbInsertCommand3.Parameters.Add(New
System.Data.OleDb.OleDbParameter("name",
System.Data.OleDb.OleDbType.VarChar, 255, "name"))
        '
        'OleDbSelectCommand4
        '
        Me.OleDbSelectCommand4.CommandText = "SELECT name FROM
BRT_vw_rep_resource"
        Me.OleDbSelectCommand4.Connection = Me.OleDbConnection1
        '
        'Resource1
        '
        Me.Resource1.DataSetName = "Resource"
        Me.Resource1.Locale = New System.Globalization.CultureInfo("en-US")
        CType(Me.EmployeeVacation1,
System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.Staffing1, System.ComponentModel.ISupportInitialize)
..EndInit()
        CType(Me.Pool1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.Resource1, System.ComponentModel.ISupportInitialize)
..EndInit()

    End Sub
    Protected WithEvents CrystalReportViewer1 As
CrystalDecisions.Web.CrystalReportViewer
    Protected WithEvents OleDbDataAdapter1 As
System.Data.OleDb.OleDbDataAdapter
    Protected WithEvents OleDbConnection1 As
System.Data.OleDb.OleDbConnection
    Protected WithEvents EmployeeVacation1 As Retry_Evolve.EmployeeVacation
    Protected WithEvents OleDbSelectCommand1 As
System.Data.OleDb.OleDbCommand
    Protected WithEvents OleDbDataAdapter2 As
System.Data.OleDb.OleDbDataAdapter
    Protected WithEvents OleDbSelectCommand2 As
System.Data.OleDb.OleDbCommand
    Protected WithEvents OleDbInsertCommand1 As
System.Data.OleDb.OleDbCommand
    Protected WithEvents OleDbUpdateCommand1 As
System.Data.OleDb.OleDbCommand
    Protected WithEvents OleDbDeleteCommand1 As
System.Data.OleDb.OleDbCommand
    Protected WithEvents Staffing1 As Retry_Evolve.Staffing
    Protected WithEvents OleDbDataAdapter3 As
System.Data.OleDb.OleDbDataAdapter
    Protected WithEvents OleDbSelectCommand3 As
System.Data.OleDb.OleDbCommand
    Protected WithEvents OleDbInsertCommand2 As
System.Data.OleDb.OleDbCommand
    Protected WithEvents OleDbUpdateCommand2 As
System.Data.OleDb.OleDbCommand
    Protected WithEvents OleDbDeleteCommand2 As
System.Data.OleDb.OleDbCommand
    Protected WithEvents Pool1 As Retry_Evolve.Pool
    Protected WithEvents OleDbDataAdapter4 As
System.Data.OleDb.OleDbDataAdapter
    Protected WithEvents OleDbSelectCommand4 As
System.Data.OleDb.OleDbCommand
    Protected WithEvents OleDbInsertCommand3 As
System.Data.OleDb.OleDbCommand
    Protected WithEvents Resource1 As Retry_Evolve.Resource
    Protected WithEvents DropDownList1 As
System.Web.UI.WebControls.DropDownList
    Protected WithEvents DropDownList2 As
System.Web.UI.WebControls.DropDownList
    Protected WithEvents DropDownList3 As
System.Web.UI.WebControls.DropDownList
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button

    'NOTE: The following placeholder declaration is required by the Web
Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Dim crpt As CrystalReport1
    Dim myTable As CrystalDecisions.CrystalReports.Engine.Table
    Dim myLogin As CrystalDecisions.Shared.TableLogOnInfo

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here

        crpt = New CrystalReport1
        For Each myTable In crpt.Database.Tables
            myLogin = myTable.LogOnInfo
            myLogin.ConnectionInfo.Password = "****"
            myLogin.ConnectionInfo.UserID = "****"
            myTable.ApplyLogOnInfo(myLogin)
        Next

        DropDownList1.Items.Insert(0, "Select a Location")
        DropDownList1.SelectedIndex = 0
        DropDownList2.Items.Insert(0, "Select a Pool")
        DropDownList2.SelectedIndex = 0
        DropDownList3.Items.Insert(0, "Select a Name")
        DropDownList3.SelectedIndex = 0

        crpt.SetParameterValue("@sqldrp_Location", "*")
        crpt.SetParameterValue("@sqldrp_ResourcePool", "*")
        crpt.SetParameterValue("@sqldrp_ResourceName", "*")

        CrystalReportViewer1.ReportSource = crpt

    End Sub

    Private Sub DropDownList1_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
DropDownList1.SelectedIndexChanged

    End Sub

    Private Sub DropDownList2_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
DropDownList2.SelectedIndexChanged

    End Sub

    Private Sub DropDownList3_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
DropDownList3.SelectedIndexChanged

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

    End Sub
End Class








<%@ Register TagPrefix="cr" Namespace="CrystalDecisions.Web"
Assembly="CrystalDecisions.Web, Version=9.1.5000.0, Culture=neutral,
PublicKeyToken=692fbea5521e1304" %>
<%@ Page Language="vb" AutoEventWireup="false"
Codebehind="WebForm1.aspx.vb" Inherits="Retry_Evolve.WebForm1"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
     <HEAD>
          <title>WebForm1</title>
          <meta content="Microsoft Visual Studio .NET 7.1" name="GENERATOR">
          <meta content="Visual Basic .NET 7.1" name="CODE_LANGUAGE">
          <meta content="JavaScript" name="vs_defaultClientScript">
          <meta content="http://schemas.microsoft.com/intellisense/ie5"
name="vs_targetSchema">
     </HEAD>
     <body MS_POSITIONING="GridLayout">
          <form id="Form1" method="post" runat="server">
               <CR:CRYSTALREPORTVIEWER id=CrystalReportViewer1 style="Z-
INDEX: 101; LEFT: 16px; POSITION: absolute; TOP: 72px" runat="server"
DisplayGroupTree="False" ReportSource='<%# "c:\\inetpub\\wwwroot\\
Retry_Evolve\\CrystalReport1.rpt" %>' Height="1089px" Width="773px">
               </CR:CRYSTALREPORTVIEWER><asp:dropdownlist id=DropDownList3
style="Z-INDEX: 104; LEFT: 480px; POSITION: absolute; TOP: 32px"
runat="server" Height="24px" Width="216px" BackColor="#E0E0E0"
DataSource="<%# Resource1 %>" DataTextField="name" DataValueField="name"
DataMember="BRT_vw_rep_resource" AutoPostBack="True">
               </asp:dropdownlist><asp:dropdownlist id=DropDownList2
style="Z-INDEX: 103; LEFT: 248px; POSITION: absolute; TOP: 32px"
runat="server" Height="24px" Width="216px" BackColor="#E0E0E0"
DataSource="<%# Pool1 %>" DataTextField="name11V0"
DataValueField="name11V0" DataMember="PoolC278V0" AutoPostBack="True">
               </asp:dropdownlist><asp:dropdownlist id=DropDownList1
style="Z-INDEX: 102; LEFT: 16px; POSITION: absolute; TOP: 32px"
runat="server" Height="24px" Width="216px" BackColor="#E0E0E0"
DataSource="<%# Staffing1 %>" DataTextField="name11V0"
DataValueField="name11V0" DataMember="StaffingLocationC195V0"
AutoPostBack="True">
               </asp:dropdownlist><asp:button id="Button1" style="Z-INDEX:
105; LEFT: 712px; POSITION: absolute; TOP: 32px" runat="server"
                    Width="88px" BackColor="#C0FFC0" Font-Bold="True"
Text="SUBMIT"></asp:button></form>
     </body>
</HTML>


These are some codes that I tried before....
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Dim crParameterDiscreteValue As ParameterDiscreteValue
        Dim crParameterFieldDefinitions As ParameterFieldDefinitions
        Dim crParameterFieldLocation As ParameterFieldDefinition
        Dim crParameterValues As ParameterValues
        crParameterFieldDefinitions = crpt.DataDefinition.ParameterFields

        crpt.SetDataSource(Staffing1.Tables("name11V0"))
        'crpt.SetParameterValue("sqldrp_Location", strname)

        crParameterFieldLocation = crParameterFieldDefinitions.Item
("@sqldrp_Location")
        crParameterValues = crParameterFieldLocation.CurrentValues
        crParameterDiscreteValue = New
CrystalDecisions.Shared.ParameterDiscreteValue
        'crParameterDiscreteValue.Value = strStartDate
        crParameterValues.Add(crParameterDiscreteValue)
        crParameterFieldLocation.ApplyCurrentValues(crParameterValues)


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ' Staffing1.Clear()
        'DropDownList1.Items.Clear()
        'Me.OleDbSelectCommand2.CommandText = "SELECT name11V0 FROM
StaffinglocationC195V0"
        'Me.OleDbSelectCommand2.Connection = Me.OleDbConnection1
        'Me.OleDbSelectCommand2.Parameters.Add(New
System.Data.OleDb.OleDbParameter("@sqldrp_Location",
DropDownList1.SelectedItem.ToString))
        'Me.OleDbDataAdapter2.Fill(Staffing1, "Staffing")
        'Dim i As Integer = 0
        'While i < Staffing1.Tables("name11V0").Rows.Count
        'DropDownList1.Items.Add(Staffing1.Tables("name11V0").Rows(i)
..ItemArray.GetValue(0))
        'System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1)
        'End While
        'Me.OleDbSelectCommand2.Parameters.Clear()


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ' OleDbDataAdapter2.Fill(Staffing1, "name11V0")

        'Staffing1.Tables(0).Columns.Add(DynColumn)
        'DropDownList1.DataSource = Staffing1.Tables(0).DefaultView
        'DropDownList1.DataTextField = Staffing1.Tables(0).Columns
("name11V0").ColumnName.ToString()
        'DropDownList1.DataValueField = Staffing1.Tables(0).Columns
("name11V0").ColumnName.ToString()
        'DropDownList1.DataBind()

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Here's a sample (in C#, sorry) that I posted some time ago. It dynamically
adds controls to the form, and then recreates them upon postback.

http://groups-beta.google.com/group/microsoft.public.dotnet.framework.aspnet/browse_thread/thread/5e4ba4cfe5902a4b/a5717a97bd32c450?q=brock+dynamic+controls+viewstate&rnum=1

-Brock
DevelopMentor
http://staff.develop.com/ballen



Show quoteHide quote

Is this posible?
Dynamically Adding Controls
Utilities/Addon for Creating Tables
Web Page Header and Menu
User Controls
Best free/cheap Menu Control for 1.1
Radio Button when checked evaluates to true?????
ASP.NET: MS Treeview loses data when posted to the server
Dynamic load ascx control when DLL not in "/bin"
dropwon list question