我有兩個aspx頁面。我需要發送一個文本框(record_id)值作爲參數從page1.aspx到page2.aspx,以在頁面後面的VB代碼中的SqlCommand查詢中使用。我想使用會話傳遞此參數。 Page1是一個GridView,它顯示來自SQL數據源的記錄,並在編輯按鈕上單擊將用戶重定向到page2,該頁面填充多個文本框和下拉列表,並允許用戶編輯記錄。 page1.aspx這個:如何通過會話將參數從page1.aspx傳遞給page2.aspx?
<div id="header">
<h1>Page1</h1>
</div>
<%-- <form id="form1" runat="server" style="text-align:left" > --%>
<div id="GridViewContainer" class="GridViewContainer"
style="width:4500px;height:700px;" >
<asp:GridView ID="GridView1" runat="server" AllowSorting="True" AutoGenerateColumns="False" CssClass="GridView"
DataKeyNames="record_id" DataSourceID="SqlDataSource1" AllowPaging="true" PageSize="15">
<PagerStyle
Font-Bold="true"
BackColor="#D6E7FF"
ForeColor="Blue"
/>
<%-- <HeaderStyle CssClass="FrozenHeader" /> --%>
<Columns>
<%--<asp:CommandField ShowEditButton="True" OnClientClick="InquiryUpdate.aspx">
<ControlStyle ForeColor="blue" />
</asp:CommandField> --%>
<asp:TemplateField HeaderText="Edit">
<ItemTemplate>
<asp:Button
ID="ButtonEdit"
runat="server"
Text="Edit"
onclick="ButtonEdit"
PostBackUrl="Page2.aspx"
CommandName="edit"
CommandArgument='<%#Eval("record_id") %>'
OnClientClick="return confirm('Are you sure you want to edit this record?')"
Height="20"
ForeColor="Navy"
Font-Bold="true"
/>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="record_id" HeaderText="Record Id" itemstyle-width="20px"
InsertVisible="False" ReadOnly="True" SortExpression="record_id" />
<asp:BoundField DataField="location" HeaderText="Location" itemstyle-width="150px"
InsertVisible="False" ReadOnly="True" SortExpression="location" />
<asp:BoundField DataField="ref_date" HeaderText="Referral Date" itemstyle-width="40px"
SortExpression="ref_date" ReadOnly="True" />
<%-- <asp:TemplateField SortExpression="ref_date" HeaderText="Referral Date">
<EditItemTemplate>
<asp:DropDownList ID="DropDownList11" Runat="server"
DataSourceID="SqlDataSource12"
DataTextField="ref_date" DataValueField="ref_date"
SelectedValue='<%# Bind("ref_date") %>'>
</asp:DropDownList>
</EditItemTemplate>
<ItemTemplate>
<asp:Label Runat="server" Text='<%# Bind("ref_date") %>'
ID="Label2"></asp:Label>
</ItemTemplate>
</asp:TemplateField> --%>
<asp:BoundField DataField="pot_res" HeaderText="Potential Resident" itemstyle-width="200px"
SortExpression="pot_res" />
<asp:TemplateField SortExpression="app_admit" HeaderText="Approval for Admit" itemstyle-width="50px">
<EditItemTemplate>
<asp:DropDownList ID="DropDownList4" Runat="server"
DataSourceID="SqlDataSource5"
DataTextField="app_admit" DataValueField="app_admit"
SelectedValue='<%# Bind("app_admit") %>'>
</asp:DropDownList>
</EditItemTemplate>
<ItemTemplate>
<asp:Label Runat="server" Text='<%# Bind("app_admit") %>'
ID="Label3"></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="reason_not_admit" HeaderText="Reason Not Admitting" itemstyle-width="200px"
SortExpression="reason_not_admit" />
<asp:TemplateField SortExpression="app_by" HeaderText="Denial Approved By" itemstyle-width="200px">
<EditItemTemplate>
<asp:DropDownList ID="DropDownList40" Runat="server"
DataSourceID="SqlDataSource40"
DataTextField="app_by" DataValueField="app_by"
SelectedValue='<%# Bind("app_by") %>'>
</asp:DropDownList>
</EditItemTemplate>
<ItemTemplate>
<asp:Label Runat="server" Text='<%# Bind("app_by") %>'
ID="Label40"></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="zip_code" HeaderText="Zip Code" itemstyle-width="30px"
SortExpression="zip_code" />
<asp:TemplateField SortExpression="assess" HeaderText="Assess" itemstyle-width="70px">
<EditItemTemplate>
<asp:DropDownList ID="DropDownList5" Runat="server"
DataSourceID="SqlDataSource6"
DataTextField="assess" DataValueField="assess"
SelectedValue='<%# Bind("assess") %>'>
</asp:DropDownList>
</EditItemTemplate>
<ItemTemplate>
<asp:Label Runat="server" Text='<%# Bind("assess") %>'
ID="Label4"></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField SortExpression="tour" HeaderText="Tour" itemstyle-width="50px">
<EditItemTemplate>
<asp:DropDownList ID="DropDownList6" Runat="server"
DataSourceID="SqlDataSource7"
DataTextField="tour" DataValueField="tour"
SelectedValue='<%# Bind("tour") %>'>
</asp:DropDownList>
</EditItemTemplate>
<ItemTemplate>
<asp:Label Runat="server" Text='<%# Bind("tour") %>'
ID="Label5"></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="hear_us" HeaderText="How did your hear about us?"
SortExpression="hear_us" itemstyle-width="100px" />
<asp:BoundField DataField="name_case_mngr" HeaderText="Name/Case Manager" itemstyle-width="100px"
SortExpression="name_case_mngr" />
<asp:TemplateField SortExpression="hos_org" HeaderText="Hospital/Organization" itemstyle-width="150px">
<EditItemTemplate>
<asp:DropDownList ID="DropDownList7" Runat="server"
DataSourceID="SqlDataSource8"
DataTextField="hos_org" DataValueField="hos_org"
SelectedValue='<%# Bind("hos_org") %>'>
</asp:DropDownList>
</EditItemTemplate>
<ItemTemplate>
<asp:Label Runat="server" Text='<%# Bind("hos_org") %>'
ID="Label6"></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="doctor" HeaderText="Doctor" itemstyle-width="150px"
SortExpression="doctor" />
<asp:BoundField DataField="pat_diag" HeaderText="Patient Diagnosis" itemstyle-width="150px"
SortExpression="pat_diag" />
<asp:TemplateField SortExpression="payor_key" HeaderText="Payor(key)" itemstyle-width="50px">
<EditItemTemplate>
<asp:DropDownList ID="DropDownList8" Runat="server"
DataSourceID="SqlDataSource9"
DataTextField="payor_key" DataValueField="payor_key"
SelectedValue='<%# Bind("payor_key") %>'>
</asp:DropDownList>
</EditItemTemplate>
<ItemTemplate>
<asp:Label Runat="server" Text='<%# Bind("payor_key") %>'
ID="Label7"></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="payor_detail" HeaderText="Payor Detail" itemstyle-width="150px"
SortExpression="payor_detail" />
<asp:TemplateField SortExpression="product_key" HeaderText="Product(Key)" itemstyle-width="150px">
<EditItemTemplate>
<asp:DropDownList ID="DropDownList2" Runat="server"
DataSourceID="SqlDataSource3"
DataTextField="product_key" DataValueField="product_key"
SelectedValue='<%# Bind("product_key") %>'>
</asp:DropDownList>
</EditItemTemplate>
<ItemTemplate>
<asp:Label Runat="server" Text='<%# Bind("product_key") %>'
ID="Label8"></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField SortExpression="decision_key" HeaderText="Decision(Key)" itemstyle-width="150px">
<EditItemTemplate>
<asp:DropDownList ID="DropDownList9" Runat="server"
DataSourceID="SqlDataSource10"
DataTextField="decision_key" DataValueField="decision_key"
SelectedValue='<%# Bind("decision_key") %>'>
</asp:DropDownList>
</EditItemTemplate>
<ItemTemplate>
<asp:Label Runat="server" Text='<%# Bind("decision_key") %>'
ID="Label9"></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField SortExpression="reason_key" HeaderText="reason(Key)" itemstyle-width="150px">
<EditItemTemplate>
<asp:DropDownList ID="DropDownList10" Runat="server"
DataSourceID="SqlDataSource11"
DataTextField="reason_key" DataValueField="reason_key"
SelectedValue='<%# Bind("reason_key") %>'>
</asp:DropDownList>
</EditItemTemplate>
<ItemTemplate>
<asp:Label Runat="server" Text='<%# Bind("reason_key") %>'
ID="Label10"></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="last_FU_date" HeaderText="Last F/U Date" itemstyle-width="40px"
SortExpression="last_FU_date" />
<%-- <asp:TemplateField SortExpression="last_FU_date" HeaderText="Last F/U Date">
<EditItemTemplate>
<asp:DropDownList ID="DropDownList12" Runat="server"
DataSourceID="SqlDataSource13"
DataTextField="last_FU_date" DataValueField="last_FU_date"
SelectedValue='<%# Bind("last_FU_date") %>'>
</asp:DropDownList>
</EditItemTemplate>
<ItemTemplate>
<asp:Label Runat="server" Text='<%# Bind("last_FU_date") %>'
ID="Label11"></asp:Label>
</ItemTemplate>
</asp:TemplateField> --%>
<asp:BoundField DataField="pri_contact" HeaderText="Primary Contact" itemstyle-width="150px"
SortExpression="pri_contact" />
<asp:BoundField DataField="relationship" HeaderText="Relationship to Resident" itemstyle-width="150px"
SortExpression="relationship" />
<asp:BoundField DataField="street" HeaderText="Street" itemstyle-width="150px"
SortExpression="street" />
<asp:BoundField DataField="city" HeaderText="City" SortExpression="city" itemstyle-width="100px"/>
<asp:TemplateField SortExpression="state" HeaderText="State">
<EditItemTemplate>
<asp:DropDownList ID="DropDownList3" Runat="server"
DataSourceID="SqlDataSource4"
DataTextField="state" DataValueField="state"
SelectedValue='<%# Bind("state") %>'>
</asp:DropDownList>
</EditItemTemplate>
<ItemTemplate>
<asp:Label Runat="server" Text='<%# Bind("state") %>'
ID="Label12"></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="zip" HeaderText="Zip" SortExpression="zip" itemstyle-width="40px"/>
<asp:BoundField DataField="phone" HeaderText="Phone" SortExpression="phone" itemstyle-width="110px"/>
<asp:BoundField DataField="comments"
HeaderText="Comments"
SortExpression="comments"
itemstyle-width="250px"/>
<asp:BoundField DataField="edited_date" HeaderText="Date Edited" itemstyle-width="100px"
InsertVisible="False" ReadOnly="True" SortExpression="edited_date" />
<asp:CommandField ShowEditButton="True" >
<ControlStyle ForeColor="blue" />
</asp:CommandField>
</Columns>
<HeaderStyle BackColor="#d6e7ff" ForeColor="black" />
</asp:GridView>
</div>
和page2.aspx.vb:
Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Partial Public Class InquiryUpdate
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
If Not IsPostBack Then
If HttpContext.Current.User IsNot Nothing Then
Me.SqlDataSource6.SelectParameters.Clear()
Me.SqlDataSource6.SelectParameters.Add("UserName", System.Data.DbType.[String], HttpContext.Current.User.Identity.Name)
End If
End If
Dim dv As Data.DataView = DirectCast(SqlDataSource1.Select(DataSourceSelectArguments.Empty), Data.DataView)
Dim conString As String = ConfigurationManager.ConnectionStrings("InquiryConnectionString").ToString()
Dim sqlConn As New SqlConnection(conString)
sqlConn.Open()
Dim cmd As New SqlCommand("SELECT record_id, location, CONVERT(nvarchar(30),ref_date,110) as ref_date, pot_res, app_admit, reason_not_admit, app_by, zip_code, assess, tour, hear_us, name_case_mngr, hos_org, doctor, pat_diag, payor_key, payor_detail, product_key, decision_key, reason_key, CONVERT(nvarchar(30),last_FU_date,110) as last_FU_date, pri_contact, relationship, street,city, state, zip, phone, comments FROM temp_inquiry_table_denial where record_id='520'", sqlConn)
cmd.Parameters.Add("@record_id", SqlDbType.Int).Value = DirectCast(Session("record_id"), Integer)
Dim da As New SqlDataAdapter(cmd)
Dim dt As New DataTable()
da.Fill(dt)
If dt.Rows.Count > 0 Then
DisplayControls(True)
txtLocation.Text = dt.Rows(0)("location").ToString()
txtRefDate.Text = dt.Rows(0)("ref_date").ToString()
pot_res.Text = dt.Rows(0)("pot_res").ToString()
txtAppAdmit.Text = dt.Rows(0)("app_admit").ToString()
txtReasonNotAdmitting.Text = dt.Rows(0)("reason_not_admit").ToString()
txtAppBy.Text = dt.Rows(0)("app_by").ToString()
txtZipCode.Text = dt.Rows(0)("zip_code").ToString()
txtAssess.Text = dt.Rows(0)("assess").ToString()
txtTour.Text = dt.Rows(0)("tour").ToString()
txtHearUs.Text = dt.Rows(0)("hear_us").ToString()
txtNameCaseMngr.Text = dt.Rows(0)("name_case_mngr").ToString()
txtHosOrg.Text = dt.Rows(0)("hos_org").ToString()
txtDoctor.Text = dt.Rows(0)("doctor").ToString()
txtPatDiag.Text = dt.Rows(0)("pat_diag").ToString()
txtPayorKey.Text = dt.Rows(0)("payor_key").ToString()
txtPayorDetail.Text = dt.Rows(0)("payor_detail").ToString()
txtProductKey.Text = dt.Rows(0)("product_key").ToString()
txtDecisionKey.Text = dt.Rows(0)("decision_key").ToString()
txtReasonKey.Text = dt.Rows(0)("reason_key").ToString()
txtFUdate.Text = dt.Rows(0)("last_FU_date").ToString()
txtPContact.Text = dt.Rows(0)("pri_contact").ToString()
txtRelationship.Text = dt.Rows(0)("relationship").ToString()
txtStreet.Text = dt.Rows(0)("street").ToString()
txtCity.Text = dt.Rows(0)("city").ToString()
txtState.Text = dt.Rows(0)("state").ToString()
txtZip2.Text = dt.Rows(0)("zip").ToString()
txtPhone.Text = dt.Rows(0)("phone").ToString()
txtComments.Text = dt.Rows(0)("comments").ToString()
Else
DisplayControls(False)
End If
sqlConn.Close()
End Sub
Private Sub DisplayControls(ByVal visibility As Boolean)
txtLocation.Visible = visibility
txtRefDate.Visible = visibility
pot_res.Visible = visibility
txtAppAdmit.Visible = visibility
txtReasonNotAdmitting.Visible = visibility
txtAppBy.Visible = visibility
txtZipCode.Visible = visibility
txtAssess.Visible = visibility
txtTour.Visible = visibility
txtHearUs.Visible = visibility
txtNameCaseMngr.Visible = visibility
txtHosOrg.Visible = visibility
txtDoctor.Visible = visibility
txtPatDiag.Visible = visibility
txtPayorKey.Visible = visibility
txtPayorDetail.Visible = visibility
txtProductKey.Visible = visibility
txtDecisionKey.Visible = visibility
txtReasonKey.Visible = visibility
txtFUdate.Visible = visibility
txtPContact.Visible = visibility
txtRelationship.Visible = visibility
txtStreet.Visible = visibility
txtCity.Visible = visibility
txtState.Visible = visibility
txtZip2.Visible = visibility
txtPhone.Visible = visibility
txtComments.Visible = visibility
End Sub
End Class
則可以將問題歸結爲一個更小的代碼示例,並制定一個問題圍繞這個問題? – user492238 2011-06-08 14:36:16
目前尚不清楚你的問題是什麼。你的問題陳述似乎是你的答案。 – 2011-06-08 14:48:22
我需要通過選擇將grid_view中的record_id文本框值傳遞給page2.aspx.vb頁面以用於填充更新表單的查詢中。我無法通過會話將此參數從page1傳遞給page2。 – 2011-06-08 14:50:57