以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  foxtable ListBox控件  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=25011)
--  作者：Siluy_kl1017
--  发布时间：2012/10/29 14:44:00
--  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

这段代码哪里有问题呢？
--  作者：lin_hailun
--  发布时间：2012/10/29 14:55:00
--  
 \'先删除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
--  作者：lin_hailun
--  发布时间：2012/10/29 14:56:00
--  
 先按楼上的试一下，然后再说说你想实现什么？我看代码看不懂。
--  作者：Siluy_kl1017
--  发布时间：2012/10/31 12:02:00
--  
灰常谢谢   粗心啊！  把代码写在下面了