主题：[求助]count必须为非负值

加上判断

Dim fll As WinForm.TopicBar = Forms("主窗体").Controls("分类栏")
'--------以下是清洗进度栏-----------------------
Dim qxjd As WinForm.TopicPage = fll.Pages("清洗进度")
qxjd.Links.Clear

For Each qxjdmc As String In DataTables("基础数据").GetComboListString("清洗进度","","_identify").Split("|")
    Dim kg As String = ""
    If 8 > qxjdmc.Length*2 Then kg = new String(" ",8 - qxjdmc.Length*2)   '定义前面的对齐空格
    Dim rs As String = DataTables("总表").Compute("count(_identify)","清洗进度 = '" & qxjdmc & "'")  '定义统计的数量
    Dim kg2 As String
    If 3 > rs.Length Then kg2 = new String(" ",3-rs.Length)
    qxjd.Links.Add(qxjdmc,qxjdmc & kg & "(" & kg2 & rs  & "个)")
Next
'-------以上是定义清洗进度栏-------------------------