| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 我想简化代码，如何实现？谢谢 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5019) |
| -- 作者：雨中的泪 -- 发布时间：2009/11/17 10:18:00 -- 我想简化代码，如何实现？谢谢 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() 我想简化，如何实现，谢谢 |
| -- 作者：雨中的泪 -- 发布时间：2009/11/17 10:19:00 -- 在易表中我使用的清空指定表，使用的是循环！！！ 在狐表中该如何实现，谢谢 |
| -- 作者：smileboy -- 发布时间：2009/11/17 10:41:00 -- \'清空所有表 For Each dt As DataTable In DataTables DataTables(dt.name).DataRows.Clear() Next |
| -- 作者：雨中的泪 -- 发布时间：2009/11/17 11:04:00 -- 有些表不能清空的！！！ |
| -- 作者：baoxyang -- 发布时间：2009/11/17 11:25:00 -- For Each dt As DataTable In DataTables if dt.name <> "表名" then DataTables(dt.name).DataRows.Clear() end if Next 加判断即可。 |
| -- 作者：czy -- 发布时间：2009/11/17 13:14:00 -- Dim Names() As String = {"单位基本信息录入","审核","数据接收临时判断","数据转移操作","系统","职务变动基础信息","调资基础数据","津补贴套改表","调标表"} For Each Name As String In Names DataTables(Name).DataRows.Clear() Next |
| -- 作者：雨中的泪 -- 发布时间：2009/11/17 14:24:00 -- 谢谢 |
| -- 作者：雨中的泪 -- 发布时间：2009/11/17 14:25:00 -- 狐表和易表比起来，是要难学点！！！ |
| -- 作者：wcs -- 发布时间：2009/11/17 23:39:00 -- 你可把表名和列名存在表里面， |