Dim Names() As String = {"帐务处理", "users","功能分类","单位","归口类型","授权表","收支汇总表","文件管理","正常经费收支情况表","水利专户","水库经营性收支表","科股室","项目设置","预算类型","预算草案"} For Each Name As String In Names
DataTables(Name).DataRows.Clear() Dim mg As New Merger mg.SourcePath = f mg.PassWord="sir" mg.SourceTableName = Name mg.DataTableName = Name mg.Merge() Next