我有一個web表單,其中我已經下降了6個dropdownlist,每個dropdownlist都有前7個日期來打開文件從文件名結尾的日期連接的特定文件夾。問題是,當我選擇第一個下拉列表列表打開文件的罰款,但是當我從其他dropdownlist選擇一個日期打開文件,然後它打開從第一個dropdownlist打開相同的文件。請參閱代碼,並在其中進行更正。下拉列表事件
我的代碼是貝婁
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
它由於緩存將存儲細節,所以總是會打開同一個。每次刷新/清除高速緩存以解決此問題。 –
親愛的那裏也存在另一個問題。當我選擇最後一個下拉列表時,它打開文件罰款,也當我選擇任何其他dd它也打開文件罰款,但是當第一次打開第一個dd,然後如果打開任何其他打開相同從第一個開始的文件 –