将数据表添加到组合框很慢

Question

我有一个包含五个组合框的表单，每个组合框都添加了相同的数据表，这个数据表是根据从 XML 文件中提取的数据创建的。一切正常，但是，表单需要几秒钟才能加载，并且我已经跟踪代码中最慢的部分是 ComboBox.DataSource = DataTable 的最后一部分。有谁知道为什么需要这么长时间？

Dim GuideDataTable As New DataTable
GuideDataTable.Columns.Add ("Text", GetType (String))
GuideDataTable.Columns.Add ("Index", GetType (Integer))
GuideDataTable.Rows.Add ("", 0)

For ItemIndex = 1 To CountNodes("guidecomponents")
    GuideDataTable.Rows.Add(ReadNode("guidecomponents", "name", "index", ItemIndex), ItemIndex)
Next

GuideDataTable.DefaultView.Sort = "Text"
GuideDataTable = GuideDataTable.DefaultView.ToTable

GuideComboBox1.DisplayMember = "Text"
GuideComboBox1.ValueMember = "Index"
GuideComboBox2.DisplayMember = "Text"
GuideComboBox2.ValueMember = "Index"
GuideComboBox3.DisplayMember = "Text"
GuideComboBox3.ValueMember = "Index"
GuideComboBox4.DisplayMember = "Text"
GuideComboBox4.ValueMember = "Index"
GuideComboBox5.DisplayMember = "Text"
GuideComboBox5.ValueMember = "Index"

GuideComboBox1.BindingContext = New BindingContext
GuideComboBox2.BindingContext = New BindingContext
GuideComboBox3.BindingContext = New BindingContext
GuideComboBox4.BindingContext = New BindingContext
GuideComboBox5.BindingContext = New BindingContext

GuideComboBox1.DataSource = GuideDataTable
GuideComboBox2.DataSource = GuideDataTable
GuideComboBox3.DataSource = GuideDataTable
GuideComboBox4.DataSource = GuideDataTable
GuideComboBox5.DataSource = GuideDataTable

Answer 1

您应该单步调试代码，看看哪里慢。可能是在数据的检索中，因为设置数据源不是一项艰巨的任务，除非有大量的数据。

如果有很多行，您可以使用异步方法来填充组合框。这将返回 UI 线程，因此不会干扰用户。

你也可以稍微清理一下代码：

• GuideComboBox1.BindingContext = New BindingContext 是不必要的。您可以只使用 datasource 属性。

• 由于有 4 个组合框具有相同的数据和显示值，因此您可以创建一个具有组合框参数的方法。这样你就不必重复你的代码了。以下代码调用表单（或用户控件）中的所有组合框：

For Each box In Me.Controls.OfType(Of ComboBox)
     SetDatasource(box, GuideDataTable)
Next

请注意，以上仅调用没有父级的组合框。您需要将Me 替换为父控件（例如面板）

如果您有许多用于不同数据的组合框，您可以通过向需要特定数据源的每个框添加标签并在For 语句中引用它来进一步缩小范围。例如

For Each box In Me.Controls.OfType(Of ComboBox).Where(Function(x) x.Tag = "my tag name")
     SetDatasource(box, GuideDataTable)
Next

方法：

Private Sub SetDatasource(box As ComboBox, dataSource As DataTable)
   box.ValueMember = "Index"
   box.DisplayMember = "Text"
   box.DataSource = dataSource
End Sub