从 BackgroundWorker 读取 ListView

Question

我已尝试进行一些搜索，但在我的一生中，我似乎无法找到答案或可行的建议解决方案。这可能是我的理解，但希望问我自己的问题会给我一个有效的答案:o)

我有一个 Windows 窗体应用程序，它由一个项目组成，ListView1

这个 ListView 有通过拖放从文件中添加到它的项目，这是在主 UI 线程上完成的，没有后台工作程序，它由大约 1500 行组成。

我现在正试图让后台工作人员读取此 ListView，但由于 ListView1 不是在同一个线程上创建的，所以我遇到了跨线程错误。

错误出现在最简单的代码片段上，但我似乎无法想出解决方法或实现调用等。

    For i = 0 To Me.ListView1.Items.Count - 1

        ValueStatement = ValueStatement & "(" & Me.ListView1.Items(i).SubItems(0).Text

        If i = Me.ListView1.Items.Count - 1 Or counter = 500 Then
            CommaTerminate = ";"
        Else
            CommaTerminate = ","
        End If


        For y = 0 To Me.ListView1.Columns.Count - 1
            ValueStatement = ValueStatement & "'" & Me.ListView1.Items(i).SubItems(y).Text & "'"
            If y = Me.ListView1.Columns.Count - 1 Then
                ValueStatement = ValueStatement & ")"
            Else
                ValueStatement = ValueStatement & ","
            End If

        Next
        ValueStatement = ValueStatement & CommaTerminate & vbNewLine


        If counter = 500 Then
            SQLStatement = "INSERT INTO RAW_CLI_DATA_" & GlobalVariables.CDR_Company & " VALUES " & vbNewLine & ValueStatement
            GenericDatabaseRequest(SQLStatement, "Loading RAW table with data..")
            counter = 0
            ValueStatement = ""
        End If

        counter = counter + 1
    Next

错误来了ValueStatement = ValueStatement & "(" & Me.ListView1.Items(i).SubItems(0).Text一行

感谢您的帮助！

Answer 1

听起来你很早就走错了路。 ListView 非常不适合数据库操作：

• 所有内容都包含在 String 中，这意味着您将有代码将其转换为其他类型
• 它不支持数据绑定，这意味着您必须手动创建行...
• ...然后再对其进行迭代以获取数据。

DataGridView 和DataTable 会更简单：当用户将数据输入到控件中时，它会以正确的类型存储在表中。将DataTable 设置为Datasource，DataGridView 将为您创建显示（行和列）。

SQLite 会花费一些时间来执行 INSERT，但看起来您也花费了大量时间来迭代和连接 SQL。无论如何，使用数据通常比用户的视图更好，因此提取数据并将其传递给工作人员。

首先，将ListView 中的数据吸到String()() 容器中：

Dim data = lv.Items.
    Cast(Of ListViewItem).
    Select(Function(s) New String() {s.SubItems(0).Text,
                                     s.SubItems(1).Text,
                                     s.SubItems(2).Text}).
        ToArray()

然后将其传递给BackGroundWorker：

bgw.RunWorkerAsync(data)

DoWork 事件：

Private Sub bgw_DoWork(sender As Object, e As DoWorkEventArgs) Handles bgw.DoWork

    ' unbox the data
    Dim dataToInsert = CType(e.Argument, String()())

    For n As Int32 = 0 To 2
        Console.WriteLine("[{0}], [{1}], [{2}]", dataToInsert(n)(0),
                          dataToInsert(n)(1),
                          dataToInsert(n)(2))
    Next

End Sub

结果：

[Patient Tempest]、[Lorem ipsum dolor sit]、[Swordfish]
[酸女祭司]、[hendrerit nibh tempor]、[鲈鱼]
【冰封正义】、【Interdum ex felis】、【剑鱼】

它正确打印了我放入 LV 的随机数据。

这将允许您处理BackGroundWorker 中的ListView 数据，但它不会真正节省任何时间，它只是保持 UI 解锁。真正的问题在其他地方，可能在数据库操作中。