[Visual Basic]
Private Sub Get_Load_Status()
[Visual Basic] Private Sub Get_Load_Status()
' MsgBox(Me.StatusSetzenToolStripMenuItem.DropDownItems.Count)
Me.StatusSetzenToolStripMenuItem.DropDownItems.Clear()
Me.StatusToolStripComboBox.Items.Clear()
Me.StatusToolStripComboBox.Items.Add("Alle")
Me.StatusTable.cpMainConnectionProvider = Globals.conn
Statusdata = Me.StatusTable.SelectAll()
For Each dr As DataRow In Me.Statusdata.Rows
If dr.Item("Aktiv") = True Then
Me.StatusSetzenToolStripMenuItem.DropDownItems.Add(dr.Item("Bezeichnung"))
Me.StatusToolStripComboBox.Items.Add(dr.Item("Bezeichnung"))
End If
Next
End Sub
Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition