加上判断
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
'-------以上是定义清洗进度栏-------------------------