主题：foxtable ListBox控件

 '先删除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

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