主题：[求助] 修改列名称

Dim wtb As WinForm.Table = e.Form.Controls("Tab_中转报表")
Dim tb As Table = wtb.Table
Dim x As String
For Each c As Col In tb.Cols
    Select Case c.Name
        Case "序号1", "序号2"
            c.Caption = "序号"
        Case "科目名称1", "科目名称2"
            c.Caption = "科目名称"
        Case "借方1", "借方2"
            c.Caption = "借方"
        Case "贷方1", "贷方2"
            c.Caption = "贷方"
        Case "差额1", "差额2"
            c.Caption = "差额"
    End Select
Next

以上代码运行后列名称还是显示原来序号1、序号2等，没有修改