VB.NET循环RTF转HTML后插入DataGridView仅第一行生效问题求助

看起来你的核心问题出在DataGridView行插入的方式上，我们来一步步拆解并修复：

问题根源 #

你在循环里使用了DataGridView1.Rows.Insert(i, New String() {RichTextBox2.Text, RichTextBox1.Text})，这里的i是基于初始的ListBox1.Items.Count来循环的。但每次调用Insert后，DataGridView的行数会增加，后续循环的i值会和实际的行索引不匹配——比如第一次插入i=0后，行总数变成1，第二次i=1的时候，你试图插入到索引1的位置，但此时DataGridView只有1行（最大索引是0），这会触发索引越界异常，导致循环直接停止（只是你可能没捕获到这个异常）。

修复方案 #

最简单的解决方法是把Insert换成Add方法，因为你是要往表格末尾添加新行，不需要指定插入位置：

For i = 0 To ListBox1.Items.Count - 1
    ' 获取RTF文件并加载
    RichTextBox1.LoadFile(ListBox1.Items(i).ToString(), RichTextBoxStreamType.RichText)
    RichTextBox1.SelectAll()
    RichTextBox1.SelectionAlignment = HorizontalAlignment.Right
    
    ' 转换为HTML
    converttohtml()
    
    ' 替换MsgBox，避免阻塞循环执行
    Debug.WriteLine("Processed item: " & i.ToString())
    
    ' 用Add替代Insert，添加新行到表格末尾
    DataGridView1.Rows.Add(New String() {RichTextBox2.Text, RichTextBox1.Text})
    
    ' 更新进度条
    ProgressBar1.Value += 1
Next

额外优化建议 #

• 移除MsgBox：弹窗会阻塞循环流程，换成Debug.WriteLine或者在状态栏显示进度更友好。
• 批量添加行提升性能：如果ListBox里的文件数量较多，每次循环操作DataGridView会导致UI卡顿。建议先把所有转换结果存入集合，最后一次性添加：

' 先定义集合存储所有行数据
Dim rowData As New List(Of String())

For i = 0 To ListBox1.Items.Count - 1
    RichTextBox1.LoadFile(ListBox1.Items(i).ToString(), RichTextBoxStreamType.RichText)
    RichTextBox1.SelectAll()
    RichTextBox1.SelectionAlignment = HorizontalAlignment.Right
    
    converttohtml()
    
    rowData.Add(New String() {RichTextBox2.Text, RichTextBox1.Text})
    ProgressBar1.Value += 1
Next

' 批量添加到DataGridView
DataGridView1.Rows.AddRange(rowData.ToArray())

这种方式能大幅提升UI响应速度，避免频繁操作表格带来的性能损耗。

• 验证converttohtml方法：确保每次调用这个方法时，都正确将转换后的HTML写入RichTextBox2，没有出现缓存未更新或者内容覆盖的问题。

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