C# と VB.NET の質問掲示板

■No50130 (こまる さん) に返信
> 調べました。ImageUrlは理解しました。
> (1)のほうの意味は理解できたのですが、実際に、redを選んだときに画像のファイル名を取り出してこれません。
> どうすればいいでしょうか？


DropDownListのプロパティ「AutoPostBack」が「False」のままになっていませんか？

また、Page_Loadメソッドの中でcsv読み込み＆DropDownListへのデータ設定を行っているなら、
PostBack時に再度csv読み込み＆DropDownListへのデータ設定を行ってしまわないように注意してコードを書きましょう。


If (IsPostBack = False) Then　

    'csv読み込み＆DropDownListへのデータ設定　処理
    
    '(長いので省略)



    'DropDownList1へDataSetのデータをバインドする
    DropDownList1.DataSource = DataSet
    DropDownList1.DataTextField = "name"
    DropDownList1.DataValueField = "image"
    DropDownList1.DataBind()

End If


次に、DropDownList1に対して、「選択された内容が変化したときに発生するイベント」を設定していますか？


参考までに。

DropDownList イベント
http://msdn.microsoft.com/ja-jp/library/system.web.ui.webcontrols.dropdownlist_events(VS.80).aspx

ヒントはたくさんちりばめたつもりだったのですが。
コピペで動くコードでないといけませんでしたか・・・。

それじゃあね。
ご健闘をお祈りします。

If (IsPostBack = False) Then　
　　　　Dim csvRecords As New System.Collections.ArrayList()

        'CSVファイル名
        Dim csvFileName As String = "C:\test.csv"

        'Shift JISで読み込む
        Dim tfp As New FileIO.TextFieldParser(csvFileName, _
        System.Text.Encoding.GetEncoding(932))
        'フィールドが文字で区切られているとする
        'デフォルトでDelimitedなので、必要なし
        tfp.TextFieldType = FileIO.FieldType.Delimited
        '区切り文字を,とする
        tfp.Delimiters = New String() {","}
        'フィールドを"で囲み、改行文字、区切り文字を含めることができるか
        'デフォルトでtrueなので、必要なし
        tfp.HasFieldsEnclosedInQuotes = True
        'フィールドの前後からスペースを削除する
        'デフォルトでtrueなので、必要なし
        tfp.TrimWhiteSpace = True

        While Not tfp.EndOfData
            'フィールドを読み込む
            Dim fields As String() = tfp.ReadFields()
            '保存
            csvRecords.Add(fields)
        End While
        '後始末
        tfp.Close()


        ' DataTableの作成（仮に"ImageTable"って名前にしておく）
        Dim table As DataTable = New DataTable("ImageTable")

        ' DataColumn, DataRow オブジェクトを作っておく
        Dim column As DataColumn
        Dim row As DataRow

        ' DataColumnを作って DataTableに追加   
        column = New DataColumn()
        column.DataType = System.Type.GetType("System.String")
        column.ColumnName = "name"
        column.ReadOnly = True
        column.Unique = True

        table.Columns.Add(column)

        ' 2つ目のDataColumn作成
        column = New DataColumn()
        column.DataType = System.Type.GetType("System.String")
        column.ColumnName = "image"
        column.AutoIncrement = False
        column.Caption = "ParentItem"
        column.ReadOnly = False
        column.Unique = False

        table.Columns.Add(column)

        ' DataSetを作成.
        Dim DataSet As DataSet
        DataSet = New DataSet()

        'DataSetに DataTable を指定
        DataSet.Tables.Add(table)

        ' 今回は列番号1と2が必要
        ' csvの内容をDataTableに追加
        Dim strName, strImg As String
        Dim x As Integer
        For x = 0 To csvRecords.Count - 1
            strName = csvRecords(x)(1) ' DropDownListに表示する名称
            strImg = csvRecords(x)(2) ' 画像ファイル名

            row = table.NewRow()
            row("name") = strName
            row("image") = strImg
            table.Rows.Add(row)
        Next
　　　　
　　　　DropDownList1.DataSource = DataSet
　　　　DropDownList1.DataTextField = "name"
　　　　DropDownList1.DataValueField = "image"
　　　　DropDownList1.DataBind()
End If