加一段代码,直接替换标题:
这里是原来生成统计表的代码
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
[此贴子已经被作者于2015/4/29 11:16:51编辑过]