If DataTables("合同or费用台账").DataRows.count>0 thenDim 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:44:00 [显示全部帖子]
