以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请教:返回第一行以外的所有行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=64363)
--  作者：able
--  发布时间：2015/2/12 0:47:00
--  请教:返回第一行以外的所有行
返回第一行
Dim dr As Row
dr = Tables("产品信息").DataRows(0)

如何返回第一行以外的所有行?
--  作者：Bin
--  发布时间：2015/2/12 8:30:00
--  
Dim dr As Row
dr = Tables("产品信息").DataRows(0)
dim drs as List(of datarow)
drs = datatables("产品信息").select("_Identify <> " & dr("_Identify"))
--  作者：able
--  发布时间：2015/2/12 14:14:00
--  
这代码好像不行呀.
--  作者：Bin
--  发布时间：2015/2/12 14:17:00
--  
Dim dr As Row
dr = Tables("产品信息").Rows(0)
dim drs as List(of datarow)
drs = datatables("产品信息").select("_Identify <> " & dr("_Identify"))
--  作者：able
--  发布时间：2015/2/12 14:44:00
--  
仍然不行呀,是不是我弄错了
--  作者：有点甜
--  发布时间：2015/2/12 14:44:00
--  
 代码没有问题，例子发上来。
--  作者：able
--  发布时间：2015/2/12 14:53:00
--  
例子是这样的,

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:递归函数示例.rar


我本意是想通过递函数,计算物料表的产品成本单价.
--  作者：有点甜
--  发布时间：2015/2/12 14:58:00
--  

 呃，参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=51263&skin=0