VB中DataGridView添加行列实现乘法表异常的解决建议

原代码存在的核心问题 #

• 无输入校验：直接将文本框输入内容强转为Integer，输入非数字、非正整数时会直接抛出运行时异常
• 列配置逻辑错误：固定使用索引0操作列，列索引没有随循环变量递增，仅第一列会被设置名称，其余列配置失效
• 行列添加顺序错位：外层遍历列、内层遍历行，每处理一列就重复添加N行，最终总行数=列数*设定行数，和预期完全不符
• 行数据匹配错误：添加行时传入的数组仅含1个元素，和设定的列数不匹配，所有计算结果只会填充到第一列，其余列全部为空
• 无重置逻辑：多次点击按钮会在原有行列基础上叠加新内容，不会清空历史数据

标准实现流程 #

• 第一步：校验输入的列数、行数是否为合法正整数，拦截非法输入
• 第二步：操作前清空DataGridView原有行、列，避免历史数据干扰
• 第三步：优先完成所有列的创建与基础配置（列名、列宽、列类型等）
• 第四步：逐行构造和列数等长的单元格数据数组，统一添加到控件中

修正后可直接运行的代码 #

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    ' 输入合法性校验
    Dim colCount As Integer
    Dim rowCount As Integer
    If Not Integer.TryParse(TextBox1.Text, colCount) OrElse colCount <= 0 Then
        MessageBox.Show("列数请输入正整数")
        Return
    End If
    If Not Integer.TryParse(TextBox2.Text, rowCount) OrElse rowCount <= 0 Then
        MessageBox.Show("行数请输入正整数")
        Return
    End If

    ' 清空原有历史数据
    DataGridView1.Rows.Clear()
    DataGridView1.Columns.Clear()
    ' 关闭用户自动新增行的默认交互，避免多余空行
    DataGridView1.AllowUserToAddRows = False

    ' 批量创建列
    For colIndex = 1 To colCount
        DataGridView1.Columns.Add($"col_{colIndex}", $"列{colIndex}")
    Next

    ' 逐行添加数据
    For rowIndex = 1 To rowCount
        Dim cellValues(colCount - 1) As String
        For colIndex = 1 To colCount
            cellValues(colIndex - 1) = $"{colIndex}x{rowIndex}={colIndex * rowIndex}"
        Next
        DataGridView1.Rows.Add(cellValues)
    Next
End Sub

可选优化建议 #

• 数据量超过200行时，建议开启DataGridView1.VirtualMode = True，可大幅降低渲染卡顿
• 若数据需要后续增删改查，优先使用DataTable作为数据源绑定到DataGridView，比手动逐行添加更易维护
• 可提前设置列的SortMode、ReadOnly等属性，避免用户误操作修改数据

内容的提问来源于stack exchange，提问作者Prakash