- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]内部函数 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92771)
-- 发布时间：2016/11/12 14:03:00
-- [求助]内部函数
大师 您好 请问出现下图错误是什么原因？ 最近两天才出现的 前几个月每天都在使用并没有问题 麻烦大师帮我看一下 先谢谢您了
此主题相关图片如下：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
Next
-- 发布时间：2016/11/12 15:15:00
--
10 - bmmc.Length*2、2-rs.Length
上面应该有计算的值小于0了，检查数据
-- 发布时间：2016/11/13 10:28:00
--
师傅 没有找到负数 全是中文的 谢谢
此主题相关图片如下：11.jpg
[此贴子已经被作者于2016/11/13 10:28:19编辑过]
-- 发布时间：2016/11/13 10:33:00
--
你这个代码肯定是负数啊，弹出对应的值。请好好理清你的逻辑。
2-rs.Length