在这个事件写代码:
http://www.foxtable.com/help/topics/1278.htm
For Each dt As DataTable In DataTables
if dt.Datacols.Contains("列名") Then
dt.DataCols("列名").Remove
end if
next