0

データテーブルの列名に応じて値を設定したいASP隠しフィールドコントロールのセットがあり、返される列の量が異なるため、使用しない場合は未使用の隠しフィールドを0に設定しています。以下は、これまでに正しい隠しフィールドを設定するのに苦労して試みたものです。

VB-

            Dim dt As DataTable
            Dim ds As New DataSet()
            ds = Getdata(4)
            dt = ds.Tables(0)

            Dim ColCnt As String = dt.Columns.Count 'Current ColCnt is 3
            For Each column As DataColumn In dt.Columns
                Select Case ColCnt
                    Case 2
                        hxValue.Value = column.ColumnName 'set to 1st Column Name
                        hxValue1.Value = 0 'Not used
                        hyValue.Value = column.ColumnName 'Set To 2nd Column Name
                    Case 3
                        hxValue.Value = column.ColumnName 'set to 1st Column Name
                        hxValue1.Value = column.ColumnName 'set to 2nd Column Name
                        hyValue.Value = column.ColumnName 'set to 3rd Column Name
                End Select
            Next
4

1 に答える 1

0

For Eachこれを試してください。ループは必要ないと思います：

Dim ColCnt As Int = dt.Columns.Count 'Current ColCnt is 3    
Select Case ColCnt
    Case 2
        hxValue.Value = dt.Columns[0].ColumnName 'set to 1st Column Name
        hxValue1.Value = 0 'Not used
        hyValue.Value = dt.Columns[1].ColumnName 'Set To 2nd Column Name
    Case 3
        hxValue.Value = dt.Columns[0].ColumnName 'set to 1st Column Name
        hxValue1.Value = dt.Columns[1].ColumnName 'set to 2nd Column Name
        hyValue.Value = dt.Columns[2].ColumnName 'set to 3rd Column Name
End Select
于 2012-11-27T11:39:30.740 に答える