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


  共有2406人关注过本帖树形打印复制链接

主题: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       
         
 End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/13 11:00:00 [只看该作者]

是重命名不成功还是表格数据保存不成功?

 

请具体说明,提示什么,出错还是怎样。


 回到顶部
帅哥哟,离线,有人找我吗?
ycwk
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/13 12:14:00 [只看该作者]

那你就写到DataColchanged事件处理。

 回到顶部