Dim fll As WinForm.TopicBar = Forms("订单主窗口").Controls("生产分类栏")
Dim kh As WinForm.TopicPage = fll.Pages("客户")
'Dim jgc As WinForm.TopicPage = fll.Pages("加工厂")
kh.Links.Clear
For Each bmmc As String In DataTables("客户管理").GetComboListString("客户").Split("|")
Dim kg As String = new String(" ",10 - bmmc.Length*2) '定义前面的对齐空格
Dim rs As String = DataTables("生产进度表").Compute("count(_identify)","客户 = '" & bmmc & "'") '定义统计的数量
Dim rsx As String = DataTables("生产进度表").Compute("sum(下单数)","客户 = '" & bmmc & "'") '定义统计的数量
If rs > "0" Then ' 只显示有值的客户
Dim kg2 As String = new String(" ",2-rs.Length)
kh.Links.Add(bmmc,bmmc & kg & "(" & kg2 & rs & "单) " & rsx & "件")
End If
Next
加好友 
发短信
Post By：2016/11/12 14:03:00 [显示全部帖子]
此主题相关图片如下：qq截图20161112140130.jpg
