先删除表格再添加试试，

'//********************************删除所有数据列********************************//

While Table1.ValueColumnCount > 0

Table1.ValueColumnIndex = 1

Table1.ValueColumnRemove = Table1.ValueColumnName

Wend

'//********************************创建数据表********************************//

If (Table_Sel1.Value <> 0) Then 

If (Table_Sel1.Value And 2^0) Then 

Table1.ValueColumnAdd = "黄家坝水库流量"

Table1.ValueColumnVisible = 0

Table1.ValueColumnTagName = "CS\T1" '分配归档变量

Table1.ValueColumnAutoPrecisions = 0

Table1.ValueColumnPrecisions = 1

End If