自己画表.
<form id="form1" runat="server">
<div>
<asp:ScriptManager ID="ScriptManager1" runat="server">
</asp:ScriptManager>
<uc1:header ID="Header1" runat="server" />
<table style="width: 1024px">
<tr>
<td style="width: 100px">
<dxe:ASPxLabel ID="ASPxLabel1" runat="server" Text="查看数据索取单" Font-Bold="False" Width="142px">
</dxe:ASPxLabel>
</td>
</tr>
</table>
<br/>
</div>
<table style="width: 250px">
<tr>
<td style="width: 100px">
<dxe:ASPxButton ID="ASPxButton1" runat="server" Text="打印索取单" OnClick="ASPxButton1_Click">
</dxe:ASPxButton>
</td>
<td style="width: 100px">
<dxe:ASPxButton ID="ASPxButton2" runat="server" Text="不再显示">
</dxe:ASPxButton>
</td>
</tr>
</table>
<% Dim i, j
i = 1
Dim da2 As SqlData = New SqlData("DVS")
Dim myreader2 As Data.SqlClient.SqlDataReader
Dim da As SqlData = New SqlData("DVS")
Dim myreader As Data.SqlClient.SqlDataReader
Dim sel as String="SELECT * FROM DVS_Main_StatusCode_view where Usr_ID='" & Session("userid") & "' and Is_Disp='1' and Status > '100'"
myreader = da.ExceRead(sel)
Do While myreader.Read
%>
<span style="font-size: 10pt; font-family: 宋体"><span style="font-family: ">
您于<%=Year(myreader("Usr_Sub_time"))%>-<%=month(myreader("Usr_Sub_time"))%>-<%=Day(myreader("Usr_Sub_time"))%>提交了车型<%=myreader("PID")%>数据索取单，系统编号<%=myreader("M_id") %>，目前状态为<%=myreader("CN")%>。</span>
<table style="width: 1000px" border="1" cellpadding="0" cellspacing="1" id="table1" >
<tr>
<td colspan="" headers="1" rowspan="" style="height: 26px">
<span style="font-size: 10pt">
序号</span></td>
<td colspan="" headers="1" rowspan="" style="height: 26px">
<span style="font-size: 10pt">
零件号</span></td>
<td colspan="" headers="1" rowspan="" style="height: 26px">
<span style="font-size: 10pt">
日期</span></td>
<td colspan="" headers="1" rowspan="" style="height: 26px">
<span style="font-size: 10pt">
PDA</span></td>
<td colspan="" headers="1" rowspan="" style="height: 26px">
<span style="font-size: 10pt">
版本号</span></td>
<td colspan="" headers="1" rowspan="" style="height: 26px">
<span style="font-size: 10pt">
文件格式</span></td>
<td colspan="" headers="1" rowspan="" style="height: 26px">
<span style="font-size: 10pt">
参见零件号</span></td>
<td colspan="" headers="1" rowspan="" style="height: 26px">
<span style="font-size: 10pt">
用户备注</span></td>
</tr>
<%
j = 1
myreader2 = da2.ExceRead("SELECT * FROM DVS_Detail WHERE m_id = '" & myreader("M_id") & "'")
Do While myreader2.Read
%>
<tr>
<td colspan="" headers="1" rowspan="">
<span style="font-size: 10pt"><%=j %></span></td>
<td colspan="" headers="1" rowspan="">
<span style="font-size: 10pt"><%=myreader2("Part")%></span></td>
<td colspan="" headers="1" rowspan="">
<span style="font-size: 10pt"><%=myreader2("Datetime")%></span></td>
<td colspan="" headers="1" rowspan="">
<span style="font-size: 10pt"><%=myreader2("PDA")%></span></td>
<td colspan="" headers="1" rowspan="">
<span style="font-size: 10pt"><%=myreader2("Ver")%></span></td>
<td colspan="" headers="1" rowspan="">
<span style="font-size: 10pt"><%=myreader2("Format")%></span></td>
<td colspan="" headers="1" rowspan="">
<span style="font-size: 10pt"><%=myreader2("Ref")%> </span></td>
<td colspan="" headers="1" rowspan="">
<span style="font-size: 10pt"><%=myreader2("Remark")%> </span></td>
</tr>
<% j = j + 1
Loop
myreader2.Close()
%>
</table>
<input name="radio1" value="<%=myreader("M_id") %>" type="radio" />打印索取单
<input name="Checkbox1" value="<%=myreader("M_id") %>" type="checkbox" />不再显示<br />
<br /> </span>
<% i = i + 1
Loop
myreader.Close()
da.Close()
da2.Close()
%>
<br />
</form>
Imports System.Data.SqlClient
Partial Class dl_view
Inherits System.Web.UI.Page
Protected Sub ASPxButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ASPxButton1.Click
Dim m_id = Request("Radio1")
'Jscript.Alert(x)
Response.Redirect("dl_for_printer.aspx?m_id=" & m_id)
End Sub
Protected Sub ASPxButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ASPxButton2.Click
Dim sel = Request("Checkbox1")
'Jscript.Alert(sel)
Dim da As SqlData = New SqlData("DVS")
da.ExceSQL("update DVS_Main set Is_Disp=0 where M_id in (" & sel & ")")
End Sub
End Class
