~~~~~~~取数据集的问题！~~~~~~求救！！！！！

[zcwmxn]

有表结构
(
id int,
matname varchar(50),
qckc_amount numeric(12,4),
qckc_money money,
bqgr_amount numeric(12,4),
bqgr_money money,
bqsy_amount numeric(12,4),
bqsy_money money,
bqzr_amount numeric(12,4),
bqzr_money money,
bqzc_amount numeric(12,4),
bqzc_money money,
qmkc_amount numeric(12,4),
qmkc_money money
)
存储过程调用此表内的数据
Dim dr As SqlDataReader = SqlHelper.ExecuteReader("mat_detail_p", Year(Now), Month(Now))
While (dr.Read())
Dim r As New TableRow
For i = 0 To 12
Dim row1col As New TableCell
If i = 1 Then
row1col.Controls.Add(New LiteralControl(dr.GetString(i).ToString))
Else
row1col.Controls.Add(New LiteralControl(dr.GetDecimal(i).ToString))
End If
r.Cells.Add(row1col)
Next
table1.Rows.Add(r)
End While
=======================================================================
现在的问题是
GetDecimal不对，不会要我每一列都判断是什么类型然后GetString,GetInt64,GetFloat……吧？我应该怎么处理呢？使用一个Get…得到列内容而不用考虑到底列是数据类型

[designonline]

If i = 1 Then
row1col.Controls.Add(New LiteralControl(dr(i).ToString))
Else
row1col.Controls.Add(New LiteralControl(dr(i).ToString))
End If

[cyp503]

For i = 0 To 12
Dim row1col As New TableCell
If i = 1 Then
row1col.Controls.Add(New LiteralControl(dr.GetString(i).ToString))
Else
row1col.Controls.Add(New LiteralControl(dr.GetDecimal(i).ToString))
End If
r.Cells.Add(row1col)
Next


-->
For i = 0 To dr.FieldCount
Dim row1col As New TableCell
row1col.Controls.Add(New LiteralControl(dr(i).ToString()));
r.Cells.Add(row1col)
Next

[smoothwood]

同意 cyp503(谁怕？一蓑烟雨任平生)

同时，如果你的数据中有NULL值，也可能出错，所以，做好在dr(i).ToString()时判断一下它的值是否为空

[lehehe]

呵呵,这个数据类型转换真的很头疼的,不过还是希望能够自己尝试一下,使用类型判断函数,然后发布的时候再更改,这样会比较号一些

[hbzxf]

在dr时判断一下它的值是否为空

[wxyzy]

If not isdbnull(dr(i)) then ...

[boat2002w]

有一个getsqldecimal吧，试试，然后再用convert转换成decimal就可以了