主题：当表没加载数据时，运行计算代码显示错误

请教一下，我在DataTables找不到那个属性是表达当关的表是空的，当表有数据时，执行下面代码没问题，如果订单表里没数据就出现错误提醒

Dim drs As List(of DataRow) = DataTables("订单").Select("", "产品,日期,_SortKey") '注意排序参数

drs(0)("余额") = drs(0)("收入") - drs(0)("支出") '设置第一行的余额

For i As Integer = 1 To drs.Count - 1  '从第二行开始逐行计算余额

    If drs(i)("产品") = drs(i - 1)("产品") Then

        drs(i)("余额") = drs(i-1)("余额") + drs(i)("收入") - drs(i)("支出")

    Else

        drs(i)("余额") = drs(i)("收入") - drs(i)("支出")

    End If

Next

如下图：

此主题相关图片如下：qq图片20150706093510.png