以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]引用列内容 加入代碼新增行會出現0值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=40334)

--  作者:tungwun
--  发布时间:2013/9/15 22:50:00
--  [求助]引用列内容 加入代碼新增行會出現0值
请问当引用余款数据到未付余款代码是正常的.但如何做到只引用一次,当余款最次修改 未付余款不会被修改?
第一次余款出现的时候,就引用,第二次修改不引用?

If e.DataCol.Name = "餘款" Then
     e.DataRow("未付餘款") = Nothing
    Else
  e.DataRow("未付餘款") = Eval (e.DataRow("餘款"),e.DataRow)

   End If
[此贴子已经被作者于2013-9-16 23:55:56编辑过]

--  作者:有点甜
--  发布时间:2013/9/15 23:01:00
--  
 是想问,第一次修改余款的时候,不引用吗?

 可以检测余款是空值->有值的情况,就引用。

--  作者:tungwun
--  发布时间:2013/9/16 13:32:00
--  第二次修改不引用
第一次余款出现的时候,就引用,第二次修改不引用?
[此贴子已经被作者于2013-9-16 17:42:40编辑过]

--  作者:有点甜
--  发布时间:2013/9/16 20:47:00
--  
 参考下面的代码

If e.DataCol.Name = "餘款" Then
    If e.OldValue Is Nothing OrElse e.OldValue = "" Then
        e.DataRow("未付餘款") = e.NewValue
    End If
End If

--  作者:tungwun
--  发布时间:2013/9/16 23:55:00
--  新增行會出現0值
加入代碼後新增行未付款餘會出現0值,所以未能引用餘款?
--  作者:tungwun
--  发布时间:2013/9/17 20:50:00
--  請問可否不引用0值?
請問可否不引用0值?
If e.DataCol.Name = "餘款" Then
    If e.OldValue Is Nothing OrElse e.OldValue = "" Then
        e.DataRow("未付餘款") = e.NewValue
    End If
End If

--  作者:有点甜
--  发布时间:2013/9/17 20:56:00
--  
If e.DataCol.Name = "餘款" andalso e.NewValue <> 0 Then
    If e.OldValue Is Nothing OrElse e.oldValue = 0 OrElse e.OldValue = "" Then
        e.DataRow("未付餘款") = e.NewValue
    End If
End If

--  作者:程兴刚
--  发布时间:2013/9/17 21:15:00
--  
If e.DataCol.Name = "餘款" Then
    if e.datarow.isnull("餘款") = false
        e.DataRow("未付餘款") = e.NewValue
    else
        e.DataRow("未付餘款") = nothing
    End If
End If