以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  修改 按值期间引用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=38343)

--  作者:xianxin2010
--  发布时间:2013/7/26 14:57:00
--  修改 按值期间引用

If e.DataCol.Name = "长度"
    For Each dr As DataRow In DataTables("表A").Select("长度>0","长度 DESC")
        If e.NewValue >= dr("长度")
            Dim dr1 As DataRow = DataTables("表A").Find("长度=" & dr("长度"))
            e.DataRow("单价") = dr1("单价")
            Exit For
        End If
    Next
End If

 

如何在中间 增加 长度等于0,单价等于0,

现在是长度等于0 单价就没有数字 tks


--  作者:Bin
--  发布时间:2013/7/26 15:07:00
--  
使用e.DataRow("单价")=IIF(e.datarow("长度")=0,0,e.dr1("单价"))
--  作者:xianxin2010
--  发布时间:2013/7/26 16:05:00
--  
以下是引用Bin在2013-7-26 15:07:00的发言:
使用e.DataRow("单价")=IIF(e.datarow("长度")=0,0,e.dr1("单价"))

这样是不是没有期间了 比如100-200的长度 等于100

 

要每一个长度对应一个单价了


--  作者:Bin
--  发布时间:2013/7/26 16:07:00
--  
不是很明白你的需求,我这个是加在赋值的句代码中的,并不影响你之前的代码逻辑.
[此贴子已经被作者于2013-7-26 16:07:31编辑过]

--  作者:xianxin2010
--  发布时间:2013/7/26 20:39:00
--  
以下是引用Bin在2013-7-26 16:07:00的发言:
不是很明白你的需求,我这个是加在赋值的句代码中的,并不影响你之前的代码逻辑.
[此贴子已经被作者于2013-7-26 16:07:31编辑过]

  Bin 和 y2287958  感谢!
--  作者:xianxin2010
--  发布时间:2013/7/27 11:10:00
--  
以下是引用Bin在2013-7-26 15:07:00的发言:
使用e.DataRow("单价")=IIF(e.datarow("长度")=0,0,e.dr1("单价"))

 

不行 加在里面 确认后 提示   编译错误“dr1”不是“DataColEventArgs”的成员

是加在 表属性  DataColChanged

 

 


 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:按值期间引用.table


--  作者:Bin
--  发布时间:2013/7/27 11:38:00
--  
dr1 不是e.dr1,  这样不知道是否满足你要求
.
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:按值期间引用.table


--  作者:xianxin2010
--  发布时间:2013/7/27 16:31:00
--  
以下是引用Bin在2013-7-27 11:38:00的发言:
dr1 不是e.dr1,  这样不知道是否满足你要求
.
 下载信息  [文件大小:288.0 KB  下载次数:0]
图片点击可在新窗口打开查看点击浏览该文件:按值期间引用.table


 感谢!解决大难题了,原来没有这句=0,数据就只能空白在那里.