datacolchanging事件中，修改后的内容保存不成功 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → datacolchanging事件中，修改后的内容保存不成功

共有2407人关注过本帖树形打印复制链接主题：datacolchanging事件中，修改后的内容保存不成功

ycwk

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

等级：六尾狐帖子：1238 积分：8638 威望：0 精华：0 注册：2016/2/2 21:52:00

datacolchanging事件中，修改后的内容保存不成功 发帖心情

Post By：2018/4/13 10:39:00 [显示全部帖子]

代码如下，不知道问题在何处？

'用户直接在表格中操作改文件名

If e.DataCol.Name="已接收文件" Then

'Dim dr As DataRow= e.DataRow

'下载数据

Dim ftp1 As new ftpclient

ftp1.host="172.16.5.89"

ftp1.Account = "administrator"

ftp1.password = "Admin1234"

ftp1.RootDir="/各表附件/收发文件管理表/已接收文件/"

If ftp1.Rename(e.OldValue,e.NewValue) = True Then

' r("已接收文件")=Nothing '清空表格中显示的文件名

msgbox("文件改名成功!")

'CurrentTable.Current("已接收文件").Save

' DataTables("收发文件管理表").Save()

'dr("已接收文件").Save()

e.DataTable.Save(False)

Else

msgbox("文件改名失败!")

End If

ycwk

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

等级：六尾狐帖子：1238 积分：8638 威望：0 精华：0 注册：2016/2/2 21:52:00

Post By：2018/4/13 11:04:00 [显示全部帖子]

新修改的值没有保存到数据库中，在 datacolchanged事件中增加下列代码解决。

If e.DataCol.Name="已接收文件" Or e.DataCol.Name="待发出文件" Then

e.DataTable.Save() '保存在datacolchanging 中修改的字段

End If

[此贴子已经被作者于2018/4/13 11:04:28编辑过]

主题：datacolchanging事件中，修改后的内容保存不成功