Foxtable(狐表)用户栏目专家坐堂 → e.datarowdeleted


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

主题:e.datarowdeleted

帅哥,在线噢!
wei0769
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1820 积分:19426 威望:0 精华:0 注册:2013/4/10 14:38:00
e.datarowdeleted  发帖心情 Post By:2018/1/4 8:27:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:10.jpg
图片点击可在新窗口打开查看
帮助中删除行后都是用  table.save的方法保存整个表,如果用 datarow, 是不是可以用 e.datarow.save 方法,会不会提高速度
[此贴子已经被作者于2018/1/4 8:31:24编辑过]

 回到顶部
帅哥,在线噢!
wei0769
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1820 积分:19426 威望:0 精华:0 注册:2013/4/10 14:38:00
  发帖心情 Post By:2018/1/4 10:38:00 [显示全部帖子]

你测试下,数据库没有执行这命令前,是还有原来的数据的,执行后就没有了这一行数据

 回到顶部
帅哥,在线噢!
wei0769
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1820 积分:19426 威望:0 精华:0 注册:2013/4/10 14:38:00
  发帖心情 Post By:2018/1/4 11:58:00 [显示全部帖子]

我想要的效果是在 table 中删除后立刻 反应到 数据库 中

我想知道怎样做

看帮助,是用 table 的save 方法

我想看是不是 在 datarowdeleted 中直接 e.datarow.save 就好了,不过帮助中没有这个说明,也没有这个E参数

 

 


图片点击可在新窗口打开查看此主题相关图片如下:11.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2018/1/4 12:00:28编辑过]

 回到顶部
帅哥,在线噢!
wei0769
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1820 积分:19426 威望:0 精华:0 注册:2013/4/10 14:38:00
  发帖心情 Post By:2018/1/4 12:28:00 [显示全部帖子]

做成这样的效果,在那个事件里写代码? 删除后立即更新到 数据表

 


图片点击可在新窗口打开查看此主题相关图片如下:删除.gif
图片点击可在新窗口打开查看

[此贴子已经被作者于2018/1/4 12:29:46编辑过]

 回到顶部
帅哥,在线噢!
wei0769
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1820 积分:19426 威望:0 精华:0 注册:2013/4/10 14:38:00
  发帖心情 Post By:2018/1/4 12:33:00 [显示全部帖子]

知道了,我再试下

 回到顶部
帅哥,在线噢!
wei0769
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1820 积分:19426 威望:0 精华:0 注册:2013/4/10 14:38:00
  发帖心情 Post By:2018/1/4 12:58:00 [显示全部帖子]

按2楼及3楼做法,后面的 datarowdeletding事件中的代码没有效果

 


图片点击可在新窗口打开查看此主题相关图片如下:13.jpg
图片点击可在新窗口打开查看

 


DataColchanged  代码不起作用

 

Select Case e.DataCol.name
    Case "数量"
        Dim dr As DataRow
        dr = DataTables("订单").Find("客户订单号 = '"  & e.DataRow("客户订单号") & "'") '找出订单表中的订单
        If dr IsNot Nothing Then
            '' MessageBox.show("客户订单号 = '"  & e.DataRow("订单号") & "'" )
            DataTables("订单").ReplaceFor("已交数量", dr("已交数量") + e.NewValue - e.OldValue , "客户订单号 = '" & e.DataRow("客户订单号") &  "'")
            e.DataRow.Save
            '' MessageBox.show("已交数量" & c1)
            'dr = DataTables("订单").Find("客户订单号 = '"  & e.DataRow("客户订单号") & "'")
            'c2 = DataTables("订单").ReplaceFor("未交数量", dr("订单数量") - dr("已交数量") , "客户订单号 = '" &e.DataRow("客户订单号") & "'")
            '' MessageBox.show("未交数量" & c2)
        Else
            MessageBox.show("没有此订单,不能出货")
            MessageBox.show(e.DataRow("客户订单号"))
        End If
       
       
End Select

[此贴子已经被作者于2018/1/4 16:13:48编辑过]

 回到顶部
帅哥,在线噢!
wei0769
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1820 积分:19426 威望:0 精华:0 注册:2013/4/10 14:38:00
  发帖心情 Post By:2018/1/4 16:16:00 [显示全部帖子]

好的,提前做好处理


 回到顶部
帅哥,在线噢!
wei0769
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1820 积分:19426 威望:0 精华:0 注册:2013/4/10 14:38:00
  发帖心情 Post By:2018/1/5 8:30:00 [显示全部帖子]

这一句出了什么问题


图片点击可在新窗口打开查看此主题相关图片如下:15.jpg
图片点击可在新窗口打开查看

找到问题了,命令打错了,缺少了双引号

[此贴子已经被作者于2018/1/5 8:32:32编辑过]

 回到顶部