- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 当表没加载数据时，运行计算代码显示错误 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=71136)
-- 发布时间：2015/7/6 9:40:00
-- 当表没加载数据时，运行计算代码显示错误
请教一下，我在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
-- 发布时间：2015/7/6 9:45:00
--
if drs.Count > 0
-- 发布时间：2015/7/6 10:09:00
--
谢谢
-- 发布时间：2015/7/6 11:36:00
--
谢谢