\'--------以下是定义客户名称栏-----------------------
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 = new String(" ",8 - qxjdmc.Length*2)   \'定义前面的对齐空格
Dim rs As String = DataTables("总表").Compute("count(_identify)","清洗进度 = \'" & qxjdmc & "\'")  \'定义统计的数量
Dim kg2 As String = new String(" ",3-rs.Length)
    qxjd.Links.Add(qxjdmc,qxjdmc & kg & "(" & kg2 & rs  & "个)")
Next
\'-------以上是定义清洗进度栏-------------------------
\'--------以下是定义结账情况栏-----------------------
Dim jzqk As WinForm.TopicPage = fll.Pages("结账状态")
jzqk.Links.Clear

For Each jzqkmc As String In DataTables("基础数据").GetComboListString("结账状态","","_identify").Split("|")
Dim kg As String = new String(" ",8 - jzqkmc.Length*2)   \'定义前面的对齐空格
Dim rs As String = DataTables("总表").Compute("count(_identify)","结账状态 = \'" & jzqkmc & "\'")  \'定义统计的数量
Dim kg2 As String = new String(" ",3-rs.Length)
    jzqk.Links.Add(jzqkmc,jzqkmc & kg & "(" & kg2 & rs  & "个)")
Next
\'-------以上是定义结账情况栏-------------------------

此主题相关图片如下：报错.jpg

前几天还用的好好的，今天突然报错了。不知为何啊？

加上判断

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