共3 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：代码调试
1楼
段虎成 发表于：2023/12/22 14:08:00老师您好，我有段代码调试错误，请帮我看一下，哪里有问题，谢谢。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:代码调试.zip |
2楼
有点蓝 发表于：2023/12/22 14:17:00For 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
3楼
段虎成 发表于：2023/12/22 14:24:00收到老师，谢谢！
共3 条记录, 每页显示 10 条, 页签:
[1]