Asp.net s（字符串发票编号）{ DataTable dt=新的DataTable（）； 使用（SqlConnection con=newsqlconnection（connectionString））{ 使用（SqlCommand cmd=newsqlcomman

s（字符串发票编号）{ DataTable dt=新的DataTable（）； 使用（SqlConnection con=newsqlconnection（connectionString））{ 使用（SqlCommand cmd=newsqlcommand（“YourQueryToGetInvoiceDetails”））{ SqlDataAdapter=新的SqlDataAdapter（cmd）； 适配器填充（dt）； 返回dt； } } } 私有数据表getAccountDetails（字符串invoiceNo） { DataTable dt=新的DataTable（）； 使用（SqlConnection con=newsqlconnection（connectionString）） { 使用（SqlCommand cmd=newsqlcommand（“YourQueryToGetAmountDetails”）） { SqlDataAdapter=新的SqlDataAdapter（cmd）； 适配器填充（dt）； 返回dt； } } }

Protected Sub Submit_Click(sender As Object, e As EventArgs) Handles Submit.Click
    periode = cbbulan.SelectedValue.ToString + Microsoft.VisualBasic.Right(cbtahun.Text, 2).ToString
    If txtseacrh.Text Then
        Me.BindGrid(txtseacrh.Text, periode)
        tampildata()
        Label3.Text = "Consignee : "
        Label4.Text = "Address : "
        Label5.Text = "Product :"
    End If
    Me.BindGrid2(txtsearch2.Text)
End Sub

Private Sub BindGrid(RefNo As String, periode As String)
    Dim constr As String = ConfigurationManager.ConnectionStrings("dbCon").ConnectionString
    Using con As New SqlConnection(constr)
        Using cmd As New SqlCommand()

            cmd.CommandText = "Declare @awb As varchar(50)
                               Select  @awb=awb from msdetail md inner join msdata mt On mt.PuNo=md.Puno 
                               where md.Puno='" & RefNo & "' 
                               Select '1' as no, Convert(varchar(12), pudate, 103) As Date,CONVERT(varchar(8), pudate,8) as time,'PU' AS status,'' as Recipient, '' as Remaks,'' as PIC from MsDetail where AWB=@awb 
                               And Periode='" & periode & "'
                               union 
                               Select '2' as no, CONVERT(varchar(12),pudatein,103) as date,CONVERT(varchar(8), pudatein,8) as time,'DE' AS status,'' as Recipient, '' as Remaks, IdUser as PIC from MsDetail where AWB=@awb 
                               And Periode='" & periode & "' 
                               UNION 
                               Select '3' as no, CONVERT(varchar(12),stdate,103) as date,CONVERT(varchar(8), stdate,8) as time,StStt AS status,StPenerima as Recipient,StRel as Remaks, st.IdUser as PIC from status st 
                               inner Join MsDetail md on md.AWB=st.AWB where md.AWB=@awb And Periode='" & periode & "' order by no"
            cmd.Connection = con

            Dim dt As New DataTable()
            Using sda As New SqlDataAdapter(cmd)
                sda.Fill(dt)
                GridView1.DataSource = dt
                GridView1.DataBind()
            End Using
        End Using
    End Using
End Sub

Private Sub BindGrid2(Puno As String)
    Dim constr As String = ConfigurationManager.ConnectionStrings("dbCon").ConnectionString
    Using con As New SqlConnection(constr)
        Using cmd As New SqlCommand()

            cmd.CommandText = "select Refno,Field1,(CONVERT (varchar(10),PuDate,103)) as PuDate,(Convert (varchar(10),Pudatein,103))as Pudatein,mdcompany,MdAdd1,mdadd2,mdadd3,mdadd4,StStt,(CONVERT (varchar(10),StDate,103)) as StDate,StPenerima,StRel from MsDetail inner join MsData on MsDetail.PuNo=MsData.PuNo
                               left join Status on MsDetail.AWB=Status.AWB where MsData.Refno='" & Puno & "'"
            cmd.Connection = con

            Dim dt As New DataTable()
            Using sda As New SqlDataAdapter(cmd)
                sda.Fill(dt)
                GridView2.DataSource = dt
                GridView2.DataBind()
            End Using
        End Using
    End Using
End Sub

Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
    If Not Page.IsPostBack Then
        'Fill Years
        For i As Integer = Year(Now) - 1 To Year(Now)
            cbtahun.Items.Add(i.ToString())
        Next
        cbtahun.Items.FindByValue(System.DateTime.Now.Year.ToString()).Selected = True 'set current year as selected

    End If
End Sub

Protected Sub cbbulan_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbbulan.SelectedIndexChanged
    'Session["cbbulan"]=DropDownList.SelectedValue;
End Sub
Private Sub koneksi()
    strconn = WebConfigurationManager.ConnectionStrings("dbCon").ConnectionString
    MyCn = New SqlConnection(strconn)
    If MyCn.State <> Data.ConnectionState.Closed Then MyCn.Close()
    MyCn.Open()
End Sub
Private Sub tampildata()
    koneksi()
    Dim sql As String
    Dim cmd As SqlCommand
    Dim dread As SqlDataReader

    ' Dim constr As String = ConfigurationManager.ConnectionStrings("a").ConnectionString

    sql = "select prname,MdName,isnull(MdAdd1,'') + ' ' + isnull(MdAdd2,'') + ' ' + isnull(MdAdd3,'') as ALAMAT from MsData inner join MsDetail on MsDetail.PuNo=MsData.PuNo 
           Left Join Produk on MsDetail.Code=Produk.Code where msdata.PuNo='" & txtseacrh.Text & "'"
            cmd = New SqlCommand(Sql, MyCn)
            dread = cmd.ExecuteReader
            If dread.HasRows Then
                While dread.Read = True
                    Label1.Text = dread.Item("mdName").ToString
                    Label2.Text = dread.Item("ALAMAT").ToString
                    Label6.Text = dread.Item("PrName").ToString
                End While
                dread.Close()
            End If
End Sub

<div>
        <asp:TextBox ID="txtInvoice" runat="server" />
        <asp:TextBox ID="txtAccountNo" runat="server" />
        <asp:Button id="btnSubmit" runat="server" Text="Submit" OnClick="btnSubmit_Click" />
    </div>

    <div>
        <asp:GridView ID="gv" runat="server" AutoGenerateColumns="true" />            
    </div>

**Code Behind**

protected void btnSubmit_Click(object sender, EventArgs e)
{
    if (!string.IsNullOrEmpty(txtInvoice.Text.Trim())) {
        gv.DataSource = getInvoiceDetails(txtInvoice.Text);
        gv.DataBind();
    }
    else if (!string.IsNullOrEmpty(txtAccountNo.Text.Trim()))
    {
        gv.DataSource = getAccountDetails(txtInvoice.Text);
        gv.DataBind();
    }
}

private DataTable getInvoiceDetails(string invoiceNo) {
    DataTable dt = new DataTable();

    using (SqlConnection con = new SqlConnection(connectionString)) {
        using (SqlCommand cmd = new SqlCommand("YourQueryToGetInvoiceDetails")) {
            SqlDataAdapter adapter = new SqlDataAdapter(cmd);
            adapter.Fill(dt);
            return dt;
        }
    }      
}

private DataTable getAccountDetails(string invoiceNo)
{
    DataTable dt = new DataTable();
    using (SqlConnection con = new SqlConnection(connectionString))
    {
        using (SqlCommand cmd = new SqlCommand("YourQueryToGetAmountDetails"))
        {
            SqlDataAdapter adapter = new SqlDataAdapter(cmd);
            adapter.Fill(dt);
            return dt;
        }
    }
}