主题：有关练手之作实验中遇到的问题。

加一段代码，直接替换标题:

这里是原来生成统计表的代码
For Each dc As DataCol In DataTables("统计表1").DataCols
   If dc.Caption = "" Then
        dc.Caption = dc.name
    End If
    If dc.Caption.IndexOf("语文") >=0 Then
        dc.Caption = dc.Caption.Replace("语文","yw")
    End If
    If dc.Caption.IndexOf("物理") >=0 Then
        dc.Caption = dc.Caption.Replace("物理","wl")
    End If
    If dc.Caption.IndexOf("英语") >=0 Then
        dc.Caption = dc.Caption.Replace("英语","yy")
    End If
Next
DataTables("统计表1").BuildHeader