主题：我想简化代码，如何实现？谢谢

 

if MessageBox.Show("如果初始化数据库，数据将无法恢复,是否要初始化数据库?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes then

DataTables("单位基本信息录入").DataRows.Clear()

DataTables("审核").DataRows.Clear()

DataTables("数据接收临时判断").DataRows.Clear()

DataTables("数据转移操作").DataRows.Clear()

DataTables("系统").DataRows.Clear()

DataTables("职务变动基础信息").DataRows.Clear()

DataTables("调资基础数据").DataRows.Clear()

DataTables("津补贴套改表").DataRows.Clear()

DataTables("调标表").DataRows.Clear()

CompactAccessFile(ProjectPath & "数据库.mdb", "TZX_GWY_JT_8888")  '压缩数据库

Syscmd.Project.Compact(False)  '压缩项目

If FileSys.FileExists(ProjectPath & "数据库.mdb.bak") Then '如果指定的文件存在

FileSys.DeleteFile(ProjectPath & "数据库.mdb.bak",2,2) '则彻底删除之

If FileSys.FileExists(ProjectPath & "人事工资管理系统.table.bak") Then '如果指定的文件存在

FileSys.DeleteFile(ProjectPath & "人事工资管理系统.table.bak ",2,2) '则彻底删除之

End If

End If

MessageBox.Show("数据库初始化完毕!!!", "提示", MessageBoxButtons.OK, MessageBoxIcon. Information)

ELSE

Return       '终止代码的执行

End if

中的 

DataTables("单位基本信息录入").DataRows.Clear()

DataTables("审核").DataRows.Clear()

DataTables("数据接收临时判断").DataRows.Clear()

DataTables("数据转移操作").DataRows.Clear()

DataTables("系统").DataRows.Clear()

DataTables("职务变动基础信息").DataRows.Clear()

DataTables("调资基础数据").DataRows.Clear()

DataTables("津补贴套改表").DataRows.Clear()

DataTables("调标表").DataRows.Clear()

我想简化，如何实现，谢谢

在易表中我使用的清空指定表，使用的是循环！！！
在狐表中该如何实现，谢谢

'清空所有表
For Each dt As DataTable In DataTables
    DataTables(dt.name).DataRows.Clear()
Next

有些表不能清空的！！！

For Each dt As DataTable In DataTables
   if dt.name <> "表名" then
     DataTables(dt.name).DataRows.Clear()
   end if
Next
加判断即可。

Dim Names() As String = {"单位基本信息录入","审核","数据接收临时判断","数据转移操作","系统","职务变动基础信息","调资基础数据","津补贴套改表","调标表"}
For Each Name As String In Names
    DataTables(Name).DataRows.Clear()
Next

谢谢

狐表和易表比起来，是要难学点！！！
有时头都晕了

你可把表名和列名存在表里面，

这样你可以方便地设置要清空哪些表，哪些表哪些用户有怎么样的权限了。