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

 

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()

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

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

有些表不能清空的！！！

谢谢

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