[求助]将数据删除时添加到历史库的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]将数据删除时添加到历史库的问题

共有2794人关注过本帖树形打印复制链接主题：[求助]将数据删除时添加到历史库的问题

Bin

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/4/17 13:37:00 [显示全部帖子]

If _username = "01人力资源部" Then

Dim Result As DialogResult

Result = Messagebox.Show("有些东西一旦失去了便再也无法挽回 , 三思而后行 ! ","温馨提示", MessageBoxButtons.YesNo, MessageBoxIcon.warning)

If Result = DialogResult.Yes Then

If CurrentTable.Current.IsNull("备注") Then

Messagebox.Show("请在备注列输入删除原因","提示")

else

Dim dr As DataRow = DataTables("历史库").AddNew

For Each dc As DataCol In DataTables("历史库").DataCols

dr(dc.Name) =CurrentTable.Current(dc.Name)

CurrentTable.Current.Delete()

MessageBox.Show("已成功删除至历史库!", "提示")

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/4/17 14:06:00 [显示全部帖子]

没看明白你的意思,你的代码本来就是遍历列名不用手动输入

Bin

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/4/17 14:07:00 [显示全部帖子]

表结构不一样,那肯定不成功. 没有办法优化. 优化最多是判断一下结构不一样就不导入

Bin

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/4/17 14:08:00 [显示全部帖子]

不行

Bin

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/4/17 14:31:00 [显示全部帖子]

For Each dc As DataCol In DataTables("历史库").DataCols

if cCurrentTable.Cols.Contains(dc.name) then

dr(dc.Name) =CurrentTable.Current(dc.Name)

end if

下一主题 >> << 上一主题

主题：[求助]将数据删除时添加到历史库的问题