以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  datacolchanging事件中，修改后的内容保存不成功  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=117480)
--  作者：ycwk
--  发布时间：2018/4/13 10:39:00
--  datacolchanging事件中，修改后的内容保存不成功
代码如下，不知道问题在何处？

\'用户直接在表格中操作改文件名
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
--  作者：有点甜
--  发布时间：2018/4/13 11:00:00
--  

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

 

请具体说明，提示什么，出错还是怎样。
--  作者：ycwk
--  发布时间：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编辑过]
--  作者：有点甜
--  发布时间：2018/4/13 12:14:00
--  
那你就写到DataColchanged事件处理。