主题：如何删除所有列

Dim tb As Table = Tables(E.Form.Name & "_table1")
Dim dt As DataTable = tb.DataTable
dt.DataRows.Clear

For i As Integer = tb.Cols.count-1 To 0 Step -1
     dt.DataCols.Delete(tb.Cols(i).Name)
Next
dt.DataCols.Add("A",Gettype(String),100)