- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 出现count 的值不能为负数的错误提示！ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=98707)
-- 发布时间：2017/4/5 15:34:00
-- [求助] 出现count 的值不能为负数的错误提示！
Dim tb As Table = Tables("残疾人主表")
Dim tp As WinForm.TopicBar = Forms("主窗口").Controls("TopicBar任务栏")
If tb.Current IsNot Nothing Then
Dim xs As String = tb.Current("县市区")
Dim gp As WinForm.GroupBox = Forms("主窗口").Controls("GroupBox2")
gp.Text = xs & " 统计数据"
With tp.Pages(0)
Dim tj1() As String = {"低保内重残","低保内非重残","低保外重残","一户多残","依老养残"}
Dim tj2() As String = {"01","02","11","12","13"}
For i As Integer = 0 To tj1.Length-1
Dim rs As Integer = DataTables("残疾人主表").SQLCompute("count(姓名)","申请人性质 = \'" & tj2(i) & "\' And 县市区 = \'" & xs & "\'")
Dim kg As String = new String("-",18 - tp.Pages(0).Links(i).Text.Length*2)
tp.Pages(0).Links(i).Text = tp.Pages(0).Links(i).Text & kg & rs & "人"
Next
End With
End If
此主题相关图片如下：3333.jpg
各位大侠指导指导，总会出现上面的错误代码！！！Count的统计值不有为负数，但统计结果肯定为0或0以上的整数值啊？
[此贴子已经被作者于2017/4/5 15:37:01编辑过]
-- 发布时间：2017/4/5 16:19:00
--
你的窗口打开了没？你这是在命令窗口运行的。
-- 发布时间：2017/4/5 16:34:00
--
这句代码有问题
Dim kg As String = new String("-",18 - tp.Pages(0).Links(i).Text.Length*2)
运算后的值，应该是负数，请注意字符length长度
-- 发布时间：2017/4/5 17:28:00
--
这个长度没有问题！肯定在18个字节以内。
-- 发布时间：2017/4/5 17:29:00
--
窗口代码或命令窗口代码，都会出现这个错误。
-- 发布时间：2017/4/5 17:39:00
--
以下是引用lmlptj在2017/4/5 17:28:00的发言：
这个长度没有问题！肯定在18个字节以内。
这个长度没有问题！肯定在18个字节以内。
不可能。肯定超出范围才会报错，弹出来看看
msgbox(tp.Pages(0).Links(i).Text.Length*2)