以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  代码调试  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=189742)
--  作者：段虎成
--  发布时间：2023/12/22 14:08:00
--  代码调试
老师您好，我有段代码调试错误，请帮我看一下，哪里有问题，谢谢。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:代码调试.zip
--  作者：有点蓝
--  发布时间：2023/12/22 14:17:00
--  
For Each xs As String In xss
    Dim riqi1 As New Date(Date.Today.Year, 1, 1)
    Dim riqi2 As New Date(Date.Today.Year, 12 , 31)
    
    Dim No As Integer = DataTables("销售合同明细").SQLCompute("sum(销售金额)/10000", "销售人员 = \'" & xs & "\' and [签约时间] >= \'" & riqi1 & "\' And [签约时间] <= \'" & riqi2 & "\'")
   ‘在首页中显示业绩
    Dim pg As WinForm.TopicPage
    pg = Forms("首页主窗口").Controls("TopicBar1").pages("本年业绩归属")
    
    pg.Links.Add("xs", xs & "(" & format(No, "#,###") & ")万元", "1.jpg")
Next
--  作者：段虎成
--  发布时间：2023/12/22 14:24:00
--  
收到老师，谢谢！