[求助]内部函数 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

大师您好请问出现下图错误是什么原因？最近两天才出现的前几个月每天都在使用并没有问题麻烦大师帮我看一下先谢谢您了

此主题相关图片如下：qq截图20161112140130.jpg

以下是代码

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

主题：[求助]内部函数