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编辑过]
加好友 
发短信
Post By：2017/4/5 15:34:00 [只看该作者]
