我在导航中加了段代码：DataTables("合同or费用台账")和DataTables("VO报表台账") 有可能是空表（未录入任何数据），如果不加判断要报错，加了绿色判断后，如果是空表，报错：索引越界。红色判断写法又不正确，请教怎么办？
Dim Page As WinForm.TopicPage
Page = e.Form.Controls("TopicBar1").Pages.Add("记录信息","记录信息")
If DataTables("合同or费用台账").DataRows(0).IsNull("合同or费用编号") Then
Page.Links.Add("尚未结算付款的记录","尾款未付清(0)条" )
Else
Dim cnt1 As Integer = DataTables("合同or费用台账").Compute("Count(尾款是否结清)","尾款是否结清 = False")
Page.Links.Add("尚未结算付款的记录","尾款未付清(" & cnt1 & ")条" )
End If
If DataTables("VO报表台账") IsNot System.DBNull Then
Dim cnt2 As Integer = DataTables("VO报表台账").Compute("Count(审核状态)","审核状态 = 审核中")
Dim cnt3 As Integer = DataTables("VO报表台账").Compute("Count(审核状态)","审核状态 = 未审核 Or 审核状态 IsNull")
Dim cnt4 As Integer = DataTables("VO报表台账").Compute("Count(审核状态)","审核状态 = 不予审核")
Page.Links.Add("正在审核的VO记录","VO正在审核(" & cnt2 & ")条" )
Page.Links.Add("尚未审核的VO记录","VO尚未审核(" & cnt3 & ")条" )
Page.Links.Add("不予审核的VO记录","VO不予审核(" & cnt4 & ")条" )
End If
加好友 
发短信
Post By：2015/5/25 10:43:00 [只看该作者]
