调试技巧:
http://www.foxtable.com/webhelp/scr/1485.htm
Dim cnt1 As Integer = DataTables("销售报表").SQLCompute("sum(销售计单)","项目名称 = '诚信通新签'")
msgbox(cnt1)
Dim cnt2 As Integer = DataTables("销售报表").SQLCompute("sum(销售计单)","项目名称 = '诚信通续签'")
msgbox(cnt2)
……
Page.Links.Add("财税服务新签","财税服务新签(" & format(cnt10,"#,###.00") & ")元","7.jpg")
msgbox(Page.Links.count)