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
加好友 
发短信
Post By：2023/12/22 14:17:00 [显示全部帖子]
