GridView~~

来源：互联网发布：32位64位系统区别知乎编辑：程序博客网时间：2024/05/16 05:52

Private Enum enumGvCloumns
        ORDER_DAY
        ORDER_NO
        PROGRESS_ID
        HtypeLink
        USER_NAME
        ORDER_END_DAY
        PRODUCE_CLASS_NAME
        CASE_STATE_NAME
        REMARK
        COLOR
    End Enum

Private Sub GridInit()
        Dim gridWidth As Integer = 0 ' grvListの広さ
        Me.grvList.Columns.Clear()
        Me.grvList.Width = 0

Dim enumColumnsType As Type = GetType(enumGvCloumns)
Dim GvColumnsNames As String() = [Enum].GetNames(enumColumnsType)

        For i As Integer = 0 To UBound(GvColumnsNames)
            'テンプレート列
            If i = enumGvCloumns.HtypeLink Then
                Dim temField As New System.Web.UI.WebControls.TemplateField
                temField.ItemTemplate = New HypeTemplateClass
                temField.ItemStyle.Width = 80
                temField.HeaderText = lrm.GetString("Gv_FactoryTop_PROGRESS_ID")
                Me.grvList.Columns.Insert(i, temField)
                gridWidth += temField.HeaderStyle.Width.Value
                Continue For
            End If
            'データ列
            Dim field As New System.Web.UI.WebControls.BoundField
            field.HtmlEncode = False
            field.HeaderStyle.Wrap = False
            field.ItemStyle.Wrap = False
            field.DataField = GvColumnsNames(i)
            Select Case i
                Case enumGvCloumns.ORDER_DAY
                    field.HeaderText = lrm.GetString("Gv_FactoryTop_ORDER_DAY")
                    field.HeaderStyle.Width = 80
                    field.ItemStyle.HorizontalAlign = HorizontalAlign.Center
                    field.HtmlEncode = True
                Case enumGvCloumns.ORDER_NO
                    field.HeaderText = lrm.GetString("Gv_FactoryTop_ORDER_NO")
                    field.HeaderStyle.Width = 100
                    field.ItemStyle.HorizontalAlign = HorizontalAlign.Left
                    field.HtmlEncode = True
                Case enumGvCloumns.PROGRESS_ID
                    field.HeaderText = lrm.GetString("Gv_FactoryTop_PROGRESS_ID")
                    field.HeaderStyle.Width = 0
                    field.ItemStyle.HorizontalAlign = HorizontalAlign.Center
                    field.HtmlEncode = True
                Case enumGvCloumns.USER_NAME
                    field.HeaderText = lrm.GetString("Gv_FactoryTop_USER_NAME")
                    field.HeaderStyle.Width = 80
                    field.ItemStyle.HorizontalAlign = HorizontalAlign.Center
                    field.HtmlEncode = True
                Case enumGvCloumns.ORDER_END_DAY
                    field.HeaderText = lrm.GetString("Gv_FactoryTop_ORDER_END_DAY")
                    field.HeaderStyle.Width = 80
                    field.ItemStyle.HorizontalAlign = HorizontalAlign.Center
                    field.HtmlEncode = True
                Case enumGvCloumns.PRODUCE_CLASS_NAME
                    field.HeaderText = lrm.GetString("Gv_FactoryTop_PRODUCE_CLASS_NAME")
                    field.HeaderStyle.Width = 80
                    field.ItemStyle.HorizontalAlign = HorizontalAlign.Left
                    field.HtmlEncode = True
                Case enumGvCloumns.CASE_STATE_NAME
                    field.HeaderText = lrm.GetString("Gv_FactoryTop_CASE_STATE_NAME")
                    field.HeaderStyle.Width = 80
                    field.ItemStyle.HorizontalAlign = HorizontalAlign.Left
                    field.HtmlEncode = True
                Case enumGvCloumns.REMARK
                    field.HeaderText = lrm.GetString("Gv_FactoryTop_REMARK")
                    'field.HeaderStyle.Width = 200
                    field.ItemStyle.HorizontalAlign = HorizontalAlign.Left
                    field.HtmlEncode = True
                Case enumGvCloumns.COLOR
                    field.HeaderText = lrm.GetString("")
                    field.HeaderStyle.Width = 0
                    field.ItemStyle.HorizontalAlign = HorizontalAlign.Left
                    field.HtmlEncode = True
            End Select
            Me.grvList.Columns.Insert(i, field)
            gridWidth += field.HeaderStyle.Width.Value
        Next
        Me.grvList.Width = gridWidth
    End Sub