0

列を持つ GRIDVIEW があり、そのうちの 1 つには、各行に表示する必要があるドロップダウンの可能な値の CSV が含まれています。

   Private Sub GridViewParameters_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridViewParameters.RowDataBound

        If e.Row.RowType = DataControlRowType.DataRow Then
            'Get value of third column. Index is zero based, to 
            'get text of third column we use Cells[2].Text
            Dim CellValue As Integer = Convert.ToSingle(e.Row.Cells(0).Text)
            Dim ntextbox As New TextBox
            Dim ncheckbox As New CheckBox
            Dim ndropdown As New DropDownList
            Dim CellType As String = Convert.ToString(e.Row.Cells(3).Text)
            'MsgBox(CellType)
            Dim DropDownItems(0) As String
            Dim cnt As Integer
            Dim marker As Integer
            Dim arraydim As Integer = 0
            'MsgBox(Convert.ToString(e.Row.Cells(2).Text))
            If Trim(CellType) = "select" Then
                'e.Row.Cells(2).Controls.Remove(ntextbox)
                'e.Row.Cells(2).Controls.Add(ndropdown)
                If Len(Trim(Convert.ToString(e.Row.Cells(4).Text))) > 0 Then
                    For cnt = 1 To Len(Trim(Convert.ToString(e.Row.Cells(4).Text)))
                        If Mid(Trim(Convert.ToString(e.Row.Cells(4).Text)), cnt, 1) = "," Then
                            'e.Row.Cells(2).Controls.
                            'MsgBox("lll")
                        End If
                    Next
                    arraydim = arraydim + 1
                    ReDim Preserve DropDownItems(arraydim)
                    DropDownItems(arraydim) = Mid(Trim(Convert.ToString(e.Row.Cells(4).Text)), marker + 1, cnt - marker - 1)
                End If
                e.Row.Cells(5).Controls.Item(5).Visible = False
                e.Row.Cells(5).Controls.Item(1).Visible = False
                e.Row.Cells(5).Controls.Item(2).Visible = False
                e.Row.Cells(5).Controls.Item(3).Visible = True 'select drop down
                'e.Row.Cells(5).Controls.Item(3).Controls.
            End If
            If Trim(CellType) = "textbox" Then
                'e.Row.Cells(2).Controls.Add(ntextbox)
                'e.Row.Cells(2).Text = Convert.ToString(e.Row.Cells(3).Text)
                e.Row.Cells(5).Controls.Item(5).Visible = True
                e.Row.Cells(5).Controls.Item(1).Visible = False
                e.Row.Cells(5).Controls.Item(2).Visible = False ' textbox
                e.Row.Cells(5).Controls.Item(3).Visible = False
                'e.Row.DataItem(
            End If
            If Trim(CellType) = "boolean" Then
                'e.Row.Cells(2).Controls.Add(ndropdown)
                'e.Row.Cells(2).Text = Convert.ToString(e.Row.Cells(3).Text)
                e.Row.Cells(5).Controls.Item(5).Visible = False
                e.Row.Cells(5).Controls.Item(1).Visible = True 'checkbox
                e.Row.Cells(5).Controls.Item(2).Visible = False
                e.Row.Cells(5).Controls.Item(3).Visible = False
            End If
            If Trim(CellType) = "hidden" Then
                e.Row.Visible = False
            End If
            'e.Row.Cells(2).Controls.Remove(ntextbox)

            '' If value is greater of 10, change format
            If CellValue > 0 Then
                ' Use this syntax to change format of complete row
                e.Row.BackColor = System.Drawing.Color.LightGreen
                e.Row.Cells(0).ForeColor = System.Drawing.Color.LightGreen
                e.Row.Cells(3).ForeColor = System.Drawing.Color.LightGreen
                'e.Row.Cells(5).ForeColor = System.Drawing.Color.LightGreen
            Else
                e.Row.BackColor = System.Drawing.Color.LightPink
                e.Row.Cells(0).ForeColor = System.Drawing.Color.LightPink
                e.Row.Cells(3).ForeColor = System.Drawing.Color.LightPink
                'e.Row.Cells(5).ForeColor = System.Drawing.Color.LightPink

                ' Use this syntax to change format of single cell
                'e.Row.Cells(2).BackColor = System.Drawing.Color.Red
            End If
        End If
    End Sub

コントロールのタイプがドロップダウン、テキスト ボックス、またはチェック ボックス (表に示されている) のいずれであるかに応じて、関連するコントロール タイプを非表示または表示します。ドロップダウンの場合は、対応する列の CSV から値を取得する必要があります。関連する行のIDが渡された場合、テーブル形式でこれらを返すSPがあります。

グリッドビューからドロップダウンに渡して正しくロードするにはどうすればよいですか?

ありがとう

4

1 に答える 1

0

したがって、この権利を読んだ場合、すでにCSV値をDropDownItems配列に読み込んでいますが、その配列を取得してそこからDropDownListを埋める方法がわかりません。

DropDownListは配列を'として使用できるので、プロパティを設定してメソッドDataSourceを呼び出すことができます。これで完了です。DataBind

....
e.Row.Cells(5).Controls.Item(3).Visible = True

ndropdown.DataSource = DropDownItems
ndropdown.DataBind()

ところで、CSV値を自分で解析してコンマを削除する代わりに、String.Splitメソッドを使用して次の作業を行うことができます。

'We can replace all this
For cnt = 1 To Len(Trim(Convert.ToString(e.Row.Cells(4).Text)))
    If Mid(Trim(Convert.ToString(e.Row.Cells(4).Text)), cnt, 1) = "," Then
    End If
Next
arraydim = arraydim + 1
ReDim Preserve DropDownItems(arraydim)
DropDownItems(arraydim) = Mid(Trim(Convert.ToString(e.Row.Cells(4).Text)), marker + 1, cnt - marker - 1)

'with
DropDownItems = e.Row.Cells(4).Text.Split(",".ToCharArray())
于 2012-05-03T13:39:09.410 に答える