主题：foxtable ListBox控件

请教各位大虾：  ------》ListBox控件问题 

 我想先删除ListBox的值然后再添加数据，为什么只能添加一行数据了？

 

    For Each dr In dt.DataRows
        If dt.DataRows.Count > 0 Then         '表里有数据时的情况
           If parflag = 1 Then                '标志为重要的公告时
              parggneirou = dr("内容")
              parggdept = dr("发布部门简称")
              parggfaburenname = dr("发布人姓名")
              parggfabudate = dr("发布时间")
              parggtitle = dr("标题")
              Forms("Form强制阅览").Open()
           Else If parflag = 0 Then            '标志为不重要的公告时
              '先删除ListBox的数据
              Cmb.Items.Clear()
              '再添加ListBox的数据
              parggcode = dr("ID")
              parggtitle = dr("标题")
              parggfabudate = dr("发布时间")
              str = parggcode + " " + parggtitle + " " + parggfabudate
              MessageBox.Show(str)
              Cmb.Items.Add(str)
           End If
       End If    
    Next

这段代码哪里有问题呢？

 '先删除ListBox的数据
  Cmb.Items.Clear()

  For Each dr In dt.DataRows
       ' If dt.DataRows.Count > 0 Then         '没必要，如果没有数据，就不会进入循环
           If parflag = 1 Then                '标志为重要的公告时
              parggneirou = dr("内容")
              parggdept = dr("发布部门简称")
              parggfaburenname = dr("发布人姓名")
              parggfabudate = dr("发布时间")
              parggtitle = dr("标题")
              Forms("Form强制阅览").Open()
           Else If parflag = 0 Then            '标志为不重要的公告时             
              '再添加ListBox的数据
              parggcode = dr("ID")
              parggtitle = dr("标题")
              parggfabudate = dr("发布时间")
              str = parggcode + " " + parggtitle + " " + parggfabudate
              MessageBox.Show(str)
              Cmb.Items.Add(str)
           End If
      ' End If    
    Next

 先按楼上的试一下，然后再说说你想实现什么？我看代码看不懂。

灰常谢谢   粗心啊！  把代码写在下面了