以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  点击重置列后已有的数据不能更新  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158706)

--  作者:DLW77
--  发布时间:2020/11/30 9:58:00
--  点击重置列后已有的数据不能更新
老师,你好,我数据已有的情况下,点击“重置列”更新数据时,已有的数据,在跨表中没有的,他就不会更新。这个代码要怎么改才会更新呢?
If e.DataCol.Name = "订单编号" Then 
    If e.NewValue Is Nothing Then 
        e.DataRow("刷单_退任务价") = Nothing 
    Else
        Dim dr As DataRow
        dr = DataTables("刷单明细").Find("[订单编号] = \'" & e.NewValue & "\'")
        If dr IsNot Nothing Then 
            e.DataRow("刷单_退任务价") = dr("实付任务金额")
        End If
    End If
End If

图片点击可在新窗口打开查看此主题相关图片如下:更新没变更.png
图片点击可在新窗口打开查看在跨表中是没有这个“订单编号”数据的,之前新增时可能是有,所以退任务价才是159,后来删除了,再点击“重置列”时,退任务价也是159,不会变成空格。


--  作者:有点蓝
--  发布时间:2020/11/30 10:09:00
--  
        If dr IsNot Nothing Then 
            e.DataRow("刷单_退任务价") = dr("实付任务金额")
else
            e.DataRow("刷单_退任务价") = nothing
        End If