自己画表.

<form

                       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"  />不再显示<br />
        <br />        </span>

        <%  i = i + 1
        Loop
        myreader.Close()
        da.Close()
        da2.Close()

                    %>
        <br />
        &nbsp;
    </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