下拉列表事件

我有一个web表单，其中我已经下拉了6个下拉列表，每个下拉列表都有以前的7个日期，从一个特定的文件夹中打开文件，并在文件名末尾连接日期。问题是，当我选择第一个下拉列表它打开文件很好，但当我选择一个日期从任何其他下拉列表打开文件，然后它打开相同的文件从第一个下拉列表打开。请查看代码并进行修改。
My Code is Bellow
Imports System
Imports System.Data
Imports System.Configuration
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Imports System.IO
Imports System.Data.SqlClient
Imports System.Diagnostics.Process
Imports Excel = Microsoft.Office.Interop.Excel
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Console
Partial Class DashBoard
    Inherits System.Web.UI.Page
    Protected Sub DD1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DD1.SelectedIndexChanged
        Response.Redirect("Reports/Daily Production and Stock Report (Crescent Ujala)/Daily Production and Stock Report (Crescent Ujala) " & DD1.SelectedValue & ".xls")
    End Sub
    Protected Sub DD2_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DD2.SelectedIndexChanged
        Response.Redirect("Reports/Daily Production Efficiency Report (Crescent Ujala)/Daily Production Efficiency Report (Crescent Ujala) " & DD2.SelectedItem.Value.ToString & ".pdf")
    End Sub
    Protected Sub DD3_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DD3.SelectedIndexChanged
        Response.Redirect("Reports/September Sowing Report/September Sowing Report " & DD3.SelectedItem.Value.ToString & ".ods")
    End Sub
    Protected Sub DD4_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DD4.SelectedIndexChanged
        Response.Redirect("Reports/September Sowing Report Area-1/September Sowing Report Area-1 " & DD4.SelectedItem.Value.ToString & ".ods")
    End Sub
    Protected Sub DD5_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dd5.SelectedIndexChanged
        Response.Redirect("Reports/September Sowing Report Area-2/September Sowing Report Area-2 " & dd5.SelectedItem.Value.ToString & ".ods")
    End Sub
    Protected Sub DD6_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DD6.SelectedIndexChanged
        Response.Redirect("Reports/Daily P & L Cost sheet/Daily P & L Cost sheet. " & DD6.SelectedValue & ".xls")
    End Sub
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'Add Values to Dropdownlist 1
        DD1.Items.Add(New ListItem("", ""))
        DD1.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -1, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -1, Now), "yyyy.MM.dd")))
        DD1.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -2, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -2, Now), "yyyy.MM.dd")))
        DD1.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -3, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -3, Now), "yyyy.MM.dd")))
        DD1.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -4, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -4, Now), "yyyy.MM.dd")))
        DD1.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -5, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -5, Now), "yyyy.MM.dd")))
        DD1.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -6, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -6, Now), "yyyy.MM.dd")))
        DD1.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -7, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -7, Now), "yyyy.MM.dd")))
        'Add Values to Dropdownlist 2
        DD2.Items.Add(New ListItem("", ""))
        DD2.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -1, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -1, Now), "yyyy.MM.dd")))
        DD2.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -2, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -2, Now), "yyyy.MM.dd")))
        DD2.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -3, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -3, Now), "yyyy.MM.dd")))
        DD2.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -4, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -4, Now), "yyyy.MM.dd")))
        DD2.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -5, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -5, Now), "yyyy.MM.dd")))
        DD2.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -6, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -6, Now), "yyyy.MM.dd")))
        DD2.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -7, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -7, Now), "yyyy.MM.dd")))
        'Add Values to Dropdownlist 3
        DD3.Items.Add(New ListItem("", ""))
        DD3.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -1, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -1, Now), "yyyy.MM.dd")))
        DD3.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -2, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -2, Now), "yyyy.MM.dd")))
        DD3.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -3, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -3, Now), "yyyy.MM.dd")))
        DD3.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -4, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -4, Now), "yyyy.MM.dd")))
        DD3.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -5, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -5, Now), "yyyy.MM.dd")))
        DD3.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -6, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -6, Now), "yyyy.MM.dd")))
        DD3.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -7, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -7, Now), "yyyy.MM.dd")))
        'Add Values to Dropdownlist 4
        DD4.Items.Add(New ListItem("", ""))
        DD4.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -1, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -1, Now), "yyyy.MM.dd")))
        DD4.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -2, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -2, Now), "yyyy.MM.dd")))
        DD4.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -3, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -3, Now), "yyyy.MM.dd")))
        DD4.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -4, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -4, Now), "yyyy.MM.dd")))
        DD4.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -5, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -5, Now), "yyyy.MM.dd")))
        DD4.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -6, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -6, Now), "yyyy.MM.dd")))
        DD4.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -7, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -7, Now), "yyyy.MM.dd")))
        'Add Values to Dropdownlist 5
        dd5.Items.Add(New ListItem("", ""))
        dd5.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -1, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -1, Now), "yyyy.MM.dd")))
        dd5.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -2, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -2, Now), "yyyy.MM.dd")))
        dd5.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -3, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -3, Now), "yyyy.MM.dd")))
        dd5.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -4, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -4, Now), "yyyy.MM.dd")))
        dd5.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -5, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -5, Now), "yyyy.MM.dd")))
        dd5.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -6, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -6, Now), "yyyy.MM.dd")))
        dd5.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -7, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -7, Now), "yyyy.MM.dd")))
        'Add Values to Dropdownlist 6
        DD6.Items.Add(New ListItem("", ""))
        DD6.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -1, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -1, Now), "yyyy.MM.dd")))
        DD6.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -2, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -2, Now), "yyyy.MM.dd")))
        DD6.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -3, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -3, Now), "yyyy.MM.dd")))
        DD6.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -4, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -4, Now), "yyyy.MM.dd")))
        DD6.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -5, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -5, Now), "yyyy.MM.dd")))
        DD6.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -6, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -6, Now), "yyyy.MM.dd")))
        DD6.Items.Add(New ListItem(Format(DateAdd(DateInterval.Day, -7, Now), "dd MMM"), Format(DateAdd(DateInterval.Day, -7, Now), "yyyy.MM.dd")))

    End Sub
End Class
您是否检查过确保其他下拉列表的OnChange事件引用了代码中的正确方法?它们可能都引用了DD1_SelectedIndexChanged。
顺便说一句，你真的应该考虑重构一些代码，因为那里有很多重复的。列表填充代码也应该移动到On_Init事件中。
将下拉列表的绑定逻辑放在IsPostaback中，如下所示
if Not page.ispostback
//然后结合
相关内容

最新更新

热门标签：
