VB.NET学习笔记：如何解决多线程下WinForm窗体控件错误——DataGridView中发生异常 索引0没有值

今天在多线程环境下测试代码时DataGridView控件报错——DataGridView中发生以下异常：索引13039没有值。而且DataGridView控件刷新很慢，需要用鼠标点击DataGridView控件列标题才刷新。如图所示。

测试工程：

新建windows应用程序，包含1个窗体，窗体中放一个DataGridView控件和一个Button控件，界面如图所示。

为窗体添加如下代码：

Imports System.Threading

Public Class Form1
    Private dt As New DataTable '定义DataGridView数据源
    Private icount As Integer = 0 '记录点击按钮的次数
    Private th As Thread '定义线程
   
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        '构建内存表的列
        dt.Columns.Add("ID", Type.GetType("System.String"))
        dt.Columns.Add("name", Type.GetType("System.String"))
        'DataGridView绑定数据源
        DataGridView1.DataSource = dt
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        icount &#