informatikerin86

Ich hab das jetzt mal so probiert: For Each item As DataRowView In ListBox1.Items TextBox1.Text = item.Item(ListBox1.SelectedIndex) Next "Eine nicht behandelte Ausnahme des Typs 'System.IndexOutOfRangeException' ist in system.windows.forms.dll aufgetreten. Zusätzliche Informationen: Spalte -1 wurde nicht gefunden." Das ist in Private Sub ListBox1_SelectedIndexChanged Wenn ich es dahin mache wo es eigentlich gehört, also in das Button-Events dann kommt diese Fehlermeldung: "Eine nicht behandelte Ausnahme des Typs 'System.InvalidCastException' ist in microsoft.visualbasic.dll aufgetreten. Zusätzliche Informationen: Ungültige Konvertierung von Typ 'DBNull' in Typ 'String'."

ganz genau so: :old keine ahnung was heute los ist, es klappt einfach gar nichts. und ich hab langsam auch keine ahnung mehr wie ich das lösen soll item hat nur die methode gettype es kann doch nicht sein, dass es so unendlich kompliziert ist diesen wert aus der Listbox rauszugekommen... Danke für deinen Beistand!

Warum kann VB.net nicht einfach Java sein?? ich glaub ich geh heim und begrabe mich...

Me.ListBox1.DataSource = Me.DataSet21.Prozessdaten_2641 Me.ListBox1.DisplayMember = "SAP-Nr" Me.ListBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.ListBox1.ItemHeight = 16 Me.ListBox1.Location = New System.Drawing.Point(24, 72) Me.ListBox1.Name = "ListBox1" Me.ListBox1.RightToLeft = System.Windows.Forms.RightToLeft.No Me.ListBox1.Size = New System.Drawing.Size(168, 36) Me.ListBox1.TabIndex = 1 Das habe ich in der Form angeklickt, deshalb steht es nicht direkt in meinem eigenen Code drin. Zwischenzeitlich habe ich ein komplett neues Projekt gemacht, eine Form, eine ListBox und ein textfeld mit demselben Code... naja, was soll ich sagen, da kommt ernsthaft dieselbe Meldung... Übrigens ne nette neue CPU, hab dieselbe, wunderbar um gut hochzutakten

Wie kann das sein das mein Item ein DataRowView ist wenn ich eine ListBox gemacht habe? :confused: Auch wenns lang ist, hier mal der Code meiner Form5: Imports System.IO Imports System.Collections Public Class Form5 Inherits System.Windows.Forms.Form Public stsitem As String Public xlsapp As New Microsoft.Office.Interop.Excel.Application #Region " Vom Windows Form Designer generierter Code " #End Region Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim f2 As New Form2 f2.Label2.Text = Label2.Text Me.OleDbDataAdapter1.Fill(Me.DataSet21) ListBox1.ClearSelected() 'Dim lbx As New ListBox 'fillListBox(DataSet321.Tables("[Prozessdaten 2641]"), "SAP-Nr", ListBox1) End Sub 'Private Sub fillListBox(ByRef table As DataTable, ByVal columnName As String, ByRef lbx As ListBox) ' lbx.BeginUpdate() ' lbx.Items.Clear() 'For Each row As DataRow In table.Rows ' lbx.Items.Add(row(columnName).ToString()) 'Next 'lbx.EndUpdate() 'End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim f6 As New Form6 f6.Show() Me.Hide() End Sub Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged 'stsitem = ListBox1.SelectedItem 'Dim soc As ListBox.SelectedObjectCollection 'soc = ListBox1.SelectedItem For Each item As Object In ListBox1.SelectedItems 'Debug.Print("For Each: " & item) TextBox1.Text() = item Next 'TextBox1.Text = stsitem End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'Dim mIndex As Integer = ListBox1.SelectedIndex 'stsitem = ListBox1.Items.Item(mIndex) IO.File.Delete("D:\excelvar.txt") Dim FStreami As New FileStream("D:\excelvar.txt", FileMode.OpenOrCreate, FileAccess.Write, FileShare.Write) FStreami.Close() Dim sFilePathe As String = "d:\excelvar.txt" Dim streami As FileStream = New FileStream(sFilePathe, FileMode.Append) Dim SWriter As StreamWriter = New StreamWriter(streami, System.Text.Encoding.Default) Dim CurrentUser As String CurrentUser = System.Security.Principal.WindowsIdentity.GetCurrent.Name SWriter.Write(stsitem) SWriter.Close() Try xlsapp.Workbooks.Open("Z:\PD-DB\2641_FreigAufruf.xls") xlsapp.Visible = True Catch ex As Exception MessageBox.Show("Datei ist nicht vorhanden oder wird gerade von einem anderen Benutzer verwendet, bitte prüfen Sie ob die Datei unter - Serverort - vorhanden ist und versuchen Sie es in ein paar Minuten wieder!.") 'Finally ' xlsapp.Workbooks.Close() End Try End Sub End Class Edit: Bitte kein Ton von wegen Namenskonventionen, ich hasse das schon in Java... das ist vorerst Nebensache!!!

Guten Morgen, Darauf bin ich doch ehrlich gesagt auch selbst gekommen, allerdings kommt da der bekannte Fehler: "Eine nicht behandelte Ausnahme des Typs 'System.InvalidCastException' ist in microsoft.visualbasic.dll aufgetreten. Zusätzliche Informationen: Ungültige Konvertierung von Typ 'DataRowView' in Typ 'String'." Du kannst auch gerne ein "Stückchen" rum haben oder besser ein Schlückchen? *g* Ruhm wäre da doch sicher besser

@kati82: Nein es gibt weder listbox.SelectedItem.Text noch listbox.SelectedText, das wäre scheinbar zu einfach Ich will auch nur einen einzelnen Wert auslesen. @Dominik: Das Buch von meinem Prof ist für Anfänger, es wird ne Form gemacht, eine Listbox und eine TextBox drauf und dann Aktionen mit der ListBox, wie eben das auslesen, das exakt so dasteht. Ich habe mich für die erste Möglichkeit entschieden (die sieht einfacher aus), allerdings gibt es einen Fehler bei debug.print, was an sich nicht so schlimm ist da ich den wert (vorerst) in einem Textfeld speichern will. Verrätst du mir wie ich das dann da reinbekomme? Wenn du mir noch mehr hilfst komme ich bald nicht mehr drum rum dich als Literaturquelle in meiner Bachelorarbeit zu erwähnen Für heute ist jetzt allerdings schon wieder Schluss, mein Allergologe ist sonst ganz arg sauer *g* Ich hoffe du bist morgen auch wieder in der Nähe!! :uli LG Simone

Das verstehe ich nicht ganz, also ich habe das mal geschrieben: Dim soc As ListBox.SelectedObjectCollection soc = ListBox1.SelectedItem Jetzt wird in soc mein ausgewählter Eintrag gespeichert. Aber ich verstehe das Problem nicht, das Buch und alle Einträge im Internet beschreiben es so einfach, warum klappt das dann nicht? Immerhin wurde das Buch von meinem Prof geschrieben, der wirklich was drauf hat. Naja, hilft ja blöderweise nichts. GetEnumerator ist mir zu kompliziert, das hab ich eben auf msdn angeschaut. Ich soll eine Schleife durchlaufen, ich weiß das sie nur einen Eintrag enthält, also: Dim i As Integer For i = 1 stsitem = soc.Item(0) Next TextBox1.Text = stsitem Das war meine Überlegung, funktioniert natürlich nicht, ich weiß auch nicht genau wo ich das Count einbauen soll.

Hallo, wenn ich so weiter frage brauche ich bald nen zweiten Usernamen... :old Ich programmiere mit VB.net und habe in meiner Form eine ListBox. Ich möchte nun den ausgewählten Eintrag anzeigen lassen bzw. danach in einer Txt-Datei speichern. Zu dem Problem habe ich in einem Buch und auch auf mehrern Webseiten etwas gefunden: Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged stsitem = ListBox1.SelectedItem TextBox1.Text = ListBox1.SelectedItems End Sub Das scheint auch überall zu funktionieren, bei mir kommt allerdings immer der Fehler: "Der Wert des Typs"System.Windows.Forms.ListBox.SelectedObjectCollection" kann nicht zu "String" konvertiert werden." Weiß jemand an was das liegen könnte? Ich verzweifle hier so langsam...

Ich hab aufgegeben nach dem Fehler zu suchen und hab mein komplettes Form umgestellt, damit funktioniert es jetzt nicht nur, es erleichtert mir sogar später enorm die Arbeit. Trotzdem Danke für deine Mühe Dominik!!! Edit: Der Debugger gibt mir in Form1 die erste Zeile als Position des Fehlers aus, einen breakpoint zu setzen hat da auch nichts geholfen

was meinst du mit wo gibt er das aus? er bricht komplett ab und zeigt diese Meldung, danach lande ich automatisch in Form1 (obwohl der Fehler ja in Form5 auftritt)

Ich habe eine Möglichkeit gefunden aus einem DataSet auszulesen in dem ich einfach mal alles auskommentiert und über die Eigenschaften der ListBox die DataSource und DisplayMember angeben habe. Das funktioniert jetzt auch, so habe ich aber nicht die Möglichkeit mehrere Datasets auszuelesen. Weiterbasteln...

momentan lautet die meldung: "Eine nicht behandelte Ausnahme des Typs 'System.NullReferenceException' ist in system.windows.forms.dll aufgetreten. Zusätzliche Informationen: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt." Mit der bin ich schon befreundet, die kenne ich bestens, allerdings in anderem Zusammenhang, deshalb sagt sie mir nun gar nichts.

hallo dominik, ich steh etwas auf dem schlauch, wohl schon seit gestern... er zeigt mir bei table einen Fehler an, der will das ich es deklariere, ich hab schon alles mögliche versucht, aber es klappt leider nicht edit: so rufe ich die Funktion auf: fillListBox(DataSet321.Tables("[Prozessdaten 2338]"), "SAP-Nr", ListBox1)

Guten Morgen, leider bin ich heute morgen noch nicht weiter gekommen. Die Daten sind im DataSet drin, ich kann sie in ein Textfeld ausgeben. Aber wie schaffe ich es das sie in der ListBox angezeigt werden???

Ich bin für heute (gezwungenermaßen) fertig mit programmieren. Jetzt "genieße" ich meinen freien Nachmittag. Morgen früh bin ich sicher dankbar für jede weitere, hilfreiche Antwort.

Danke für deine schnelle Antwort Ein DataSet für alles zu benutzen habe ich mir auch schon überlegt, dachte mir so wäre es vielleicht einfacher zu durchschauen woher welche Daten kommen. Du benutzt in deinem Beispiel DataTable und dann table.row ist das dasselbe wie DataSet? er nimmt mir das nämlich nicht. ich hab auch versucht meine tabelle statt table einzutragen, das funktioniert nur leider nicht. :confused:

Hallo Leute, falls jemand neues meine alten Beiträge nicht gelesen hat: Ich schreibe mit VB.net eine DB-Anwendung. Nun stehe ich wieder vor einem neuen Problem, mein zweites heute Ich habe mehrere Tabellen in der DB mit einem gleichnamigen Key. Scheinbar muss ich da für jede Tabelle eine Abfrage machen. Jedenfalls habe ich nun 8 Abfragen die in 8 verschiedenen DataSets abgespeichert werden. Wie bekomme ich es nun hin, dass der Inhalt der DataSets in die ListBox übernommen werden? Eine nach der anderen? Es sind variabel keine, eine oder mehrere Werte die in der DataSet gespeichert werden. Kann mir jemand einen Tipp geben wie ich weiterkommen kann? Grüße Informatikerin

Juhu es funktioniert. Ich habe jetzt zum einem überall Application.quit() eingefügt und dann doch mit xlsapp.Application.Quit() gearbeitet. Nun ist mein Anwendungs-Prozess und mein Excel-Prozess beendet!!! Danke Dominik, dich merk ich mir für mein nächstes Problem!

DANKE!! Application.Exit() klappt wunderbar, es beendet damit automatisch den debugger. Ist ne gute Alternative dazu jetzt alle me.hide() zu suchen und zu ersetzten, vor allem da ich diese absichtlich eingebaut habe! Jetzt habe ich allerdings noch ne andere, ähnliche, Frage: Ich öffne in der Anwendung eine Excel-Datei, normalerweise kann ich diese ja dann über beenden schließen. Der Prozess ist in dem Fall aber noch da, selbst mein xlsapp.Workbooks.Close() hat da nicht geholfen. Nach beenden der Anwendung habe ich immernoch den Excel-Prozess drin stehen.

Beim debuggen bleibt die anwendung solange als Prozess bestehen bis ich den debugger beende. Die Frage nach den Forms ist gut! Ich denke hide() versteckt diese nur, d.h. ich sollte die erstmal beenden...

Danke für deine Antwort! Aber da stoße ich nicht mehr an Grenzen, da bin ich längst drüber hinweg... Was kann man denn gegen ein Speicherleck machen??

Hey Leute, meine Anwendung steht mittlerweile soweit, dass ich mich gewagt habe einen Test mit der exe-Datei durchzuführen. Blöderweise kann ich meine Anwendung noch so oft schließen, der Prozess läuft weiterhin, dies wird natürlich bei nochmaligem starten des Programms ein Problem. Weiß jemand an was das liegen könnte? Ich hab mit VB.net programmiert. LG Informatikerin

Ich habe mein Problem selbst gelöst. Nicht mit VB.net sondern in Excel. Falls es jemanden interessiert: Ich habe in Excel beim laden ein makro laufen das erst aktualisiert und dann abspeichert. Dann ist diese lästige Abfrage weg und Excel kann von der Print-Methode wieder wunderbar geschlossen werden. Die Aktualisierung läuft auch!

Hallo Leute, ich will über meine VB.net-Anwendung eine Excel-Datei ausdrucken. Das funktioniert auch, allerdings muss diese bevor gedruckt wird aktualisiert werden. Da kommt mir dann die Print-Funktion zuvor und schließt das Dokument, dabei erscheint eine Abfrage. Diese sollte der Benutzer natürlich nicht sehen. Meine Überlegung war es einen Timer einzubauen. Also das Dokument öffnen, warten bis er aktualisiert hat und dann erst drucken. Hier mein Code zum drucken: Dim psi As New ProcessStartInfo(test4) psi.Verb = "Print" Process.Start(psi) Ich hoffe jemand hat eine Idee für mich. Viele Grüße informatikerin