DataGridView头标题

来源：互联网发布：合肥seo整站优化编辑：程序博客网时间：2024/05/19 09:13

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sStrSQL As String = String.Empty
        'T_RECEIVE_RICHESLOSSINFOA(--受案财物损失信息)
        'T_CASECANCEL_EMANIPULATION(--案件撤销物品处理)
        'T_Puton_RichesLossInfo(--立案财物损失信息)
        'T_DETECRICHESLOSSINFO(--破案财物损失信息)
        'T_CASECANCEL_LOST(--销案财物损失信息)
        '合并各阶段物品信息
        sStrSQL = "select t.case_id,t.rich_no,t.rich_type, t.rich_property,t.rich_name,t.rich_istree,t.rich_character,tRICH_NUMS,t.rich_measureunit,t.rich_worth,t.writetablepeople,t.writetableunit " & _
                " from   T_RECEIVE_RICHESLOSSINFOA t where t.Case_ID='" + SystemInfo.CaseGoodsNumberZJJ(0) + "'" & _
                " union " & _
                " select t.case_id,t.rich_no,t.rich_type, t.rich_property,t.rich_name,t.rich_istree,t.rich_character,t.RICH_NUMS,t.rich_measureunit,t.rich_worth,t.writetablepeople,t.writetableunit " & _
                " from   T_Puton_RichesLossInfo t where t.Case_ID='" + SystemInfo.CaseGoodsNumberZJJ(0) + "'" & _
                " union " & _
                " select t.case_id,t.rich_no,t.rich_type, t.rich_property,t.rich_name,t.rich_istree,t.rich_character,t.RICH_NUMS,t.rich_measureunit,t.rich_worth,t.writetablepeople,t.writetableunit " & _
                " from   T_DETECRICHESLOSSINFO t where t.Case_ID='" + SystemInfo.CaseGoodsNumberZJJ(0) + "'" & _
                " union " & _
                " select t.case_id,t.rich_no,t.rich_type, t.rich_property,t.rich_name,t.rich_istree,t.rich_character,t.RICH_NUMS,t.rich_measureunit,t.rich_worth,t.writetablepeople,t.writetableunit " & _
                " from   T_CASECANCEL_LOST t where t.Case_ID='" + SystemInfo.CaseGoodsNumberZJJ(0) + "'"

        Me.mDataAdpter = CType(Me.mConnectIN.DataAccess.GetDBDataAdapter(sStrSQL, True), System.Data.OracleClient.OracleDataAdapter)
        Me.mTable = New Data.DataTable()
        Me.mDataAdpter.Fill(mTable)
        Me.DataGridView1.DataSource = mTable
        Me.DataGridView1.Columns(0).HeaderText = "受案编号"
        Me.DataGridView1.Columns(1).HeaderText = "序号"
        Me.DataGridView1.Columns(2).HeaderText = "物品类型"
        Me.DataGridView1.Columns(3).HeaderText = "物品属性"
        Me.DataGridView1.Columns(4).HeaderText = "物品名称"
        Me.DataGridView1.Columns(5).HeaderText = "是否公益林"
        Me.DataGridView1.Columns(6).HeaderText = "规格特征"
        Me.DataGridView1.Columns(7).HeaderText = "数量"
        Me.DataGridView1.Columns(8).HeaderText = "价值"
        Me.DataGridView1.Columns(9).HeaderText = "填表人"
        Me.DataGridView1.Columns(10).HeaderText = "填报单位"

End Sub