Hey,
hat jemand eine Idee warum mein Backgroundworker mitten beim Arbeiten einfach ohne Fehler aufhört zu arbeiten und nichts mehr macht, sich aber auch nicht wieder starten lässt?
Bitte kommt mir nicht mit "Das ist an der und der Stelle unsauber gemacht." Das weiß ich, aber es soll nur funktionieren.
CheckForIllegalCrossThreadCalls = False Wird beim Laden der Form ausgeführt und wenn die Form.Shown auslöst wird der Backgroundworker gestartet.
Edit, hatte einen Zahlendreher
hat jemand eine Idee warum mein Backgroundworker mitten beim Arbeiten einfach ohne Fehler aufhört zu arbeiten und nichts mehr macht, sich aber auch nicht wieder starten lässt?
Bitte kommt mir nicht mit "Das ist an der und der Stelle unsauber gemacht." Das weiß ich, aber es soll nur funktionieren.
CheckForIllegalCrossThreadCalls = False Wird beim Laden der Form ausgeführt und wenn die Form.Shown auslöst wird der Backgroundworker gestartet.
Edit, hatte einen Zahlendreher
VB.NET-Quellcode
-
- Private Sub AutoCompleteBackgroundWorker_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles AutoCompleteBackgroundWorker.DoWork
- Using cn As New MySqlConnection("server=xxx;" & "user id=xxx;" & "password=xxx;" & "database=xxx")
- cn.Open()
- Dim da As New MySqlDataAdapter("SELECT * from user", cn)
- Dim da2 As New MySqlDataAdapter("SELECT * from fahrzeuge", cn)
- Dim da3 As New MySqlDataAdapter("SELECT * from wachen", cn)
- 'DataTable
- Dim dt As New DataTable
- Dim dt2 As New DataTable
- Dim dt3 As New DataTable
- 'llenar el DataTable
- da.Fill(dt)
- da2.Fill(dt2)
- da3.Fill(dt3)
- 'enlazar el DataTable al BindingSource
- DataGridView1.DataSource = dt2
- DataGridView2.DataSource = dt3
- DataGridView3.DataSource = dt
- With DataGridView2
- .MultiSelect = True
- .SelectionMode = DataGridViewSelectionMode.FullRowSelect
- .AutoSizeColumnsMode = DataGridViewAutoSizeColumnMode.Fill
- .DataSource = DataGridView2.DataSource
- .Columns(0).HeaderText = "ID"
- .Columns(1).HeaderText = "Name"
- .Columns(2).HeaderText = "Organisation"
- .Columns(3).HeaderText = "Ort"
- .Columns(4).Visible = False
- .Columns(5).HeaderText = "Geld"
- .Sort(DataGridView3.Columns(0), System.ComponentModel.ListSortDirection.Ascending)
- .Refresh()
- .AutoResizeColumn(0, DataGridViewAutoSizeColumnMode.AllCells)
- .AutoResizeColumn(1, DataGridViewAutoSizeColumnMode.AllCells)
- .AutoResizeColumn(2, DataGridViewAutoSizeColumnMode.AllCells)
- .AutoResizeColumn(3, DataGridViewAutoSizeColumnMode.AllCells)
- .AutoResizeColumn(4, DataGridViewAutoSizeColumnMode.AllCells)
- .AutoResizeColumn(5, DataGridViewAutoSizeColumnMode.AllCells)
- .Refresh()
- End With
- '----------------------------------Hier hört er auf zu arbeiten und macht einfach nichts mehr
- With DataGridView3
- .MultiSelect = True
- .SelectionMode = DataGridViewSelectionMode.FullRowSelect
- .AutoSizeColumnsMode = DataGridViewAutoSizeColumnMode.Fill
- .DataSource = DataGridView3.DataSource
- .Columns(0).HeaderText = "ID"
- .Columns(1).HeaderText = "Username"
- .Columns(2).Visible = False
- .Columns(3).HeaderText = "Mail"
- .Columns(4).HeaderText = "Wache"
- .Columns(5).HeaderText = "Rechte"
- .Columns(6).Visible = False
- .Columns(7).HeaderText = "aktiviert"
- .Columns(8).HeaderText = "gebannt"
- .Sort(DataGridView3.Columns(0), System.ComponentModel.ListSortDirection.Ascending)
- .Refresh()
- .AutoResizeColumn(0, DataGridViewAutoSizeColumnMode.AllCells)
- .AutoResizeColumn(1, DataGridViewAutoSizeColumnMode.AllCells)
- .AutoResizeColumn(2, DataGridViewAutoSizeColumnMode.AllCells)
- .AutoResizeColumn(3, DataGridViewAutoSizeColumnMode.AllCells)
- .AutoResizeColumn(4, DataGridViewAutoSizeColumnMode.AllCells)
- .AutoResizeColumn(5, DataGridViewAutoSizeColumnMode.AllCells)
- .AutoResizeColumn(6, DataGridViewAutoSizeColumnMode.AllCells)
- .Refresh()
- End With
- Dim autocomplete1 As New AutoCompleteStringCollection
- Dim autocomplete2 As New AutoCompleteStringCollection
- Dim autocomplete3 As New AutoCompleteStringCollection
- For Each row In dt3.Rows
- ComboBox5.Items.Add(row.Item(1))
- Next
- ComboBox5.AutoCompleteCustomSource = autocomplete1
- For Each row In dt2.Rows
- ComboBox1.Items.Add(row.Item(1))
- Next
- ComboBox1.AutoCompleteCustomSource = autocomplete2
- End Using
- End Sub
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Xyolyp“ ()