捣乱的来了!!!!!!!
DataTables("表A").DataCols("第一列").Caption = "上传附件" & vbCrLf & "下载附件"Tables("表A").Grid.Parent.Parent.Parent.text = "上传附件" & vbCrLf & "下载附件"DataTables("表A").BuildHeader