- 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=32576)
-- 发布时间：2013/5/4 12:42:00
-- [求助]另类的数据跨表传递
此主题相关图片如下：数据筛选传递.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:数据筛选传递.table |
-- 发布时间：2013/5/4 16:51:00
--
没人帮忙看看吗?
-- 发布时间：2013/5/4 16:54:00
--
完全摸不着头脑你想干什么.
-- 发布时间：2013/5/4 17:06:00
--
第一个问题: 把左边表的内容按照"编号"列等于0值,得出9条数据.然后把这9条数据赋值给右边的"房价信息"表
第二个问题: 把"编号"列等于0值 的"日期" 赋值给 "房价信息"表的"开始日期" 列
把"编号"列等于1值 的"日期" 赋值给 "房价信息"表的"结束日期" 列
-- 发布时间：2013/5/4 17:11:00
--
你左边 3行和5行完全一样的 预订编号和 编号 怎么区分?
-- 发布时间：2013/5/4 17:16:00
--
区分在房价编号
-- 发布时间：2013/5/4 17:17:00
--
生成编号的代码你自己添加吧.
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:数据筛选传递.table |
[此贴子已经被作者于2013-5-4 17:26:45编辑过]
-- 发布时间：2013/5/4 17:17:00
--
For Each drw As DataRow In DataTables("房价计算").DataRows
Dim drList As List(of DataRow) = DataTables("房价计算").Select("预订编号=\'" & drw("预订编号") & "\' and 详单号=\'" & drw("详单号") & "\' and 房价编号=\'" & drw("房价编号") & "\'")
If drList IsNot Nothing Then
drList(0)("编号")=0
drList(drList.Count-1)("编号")= 1
End If
Next
这是编号获得的代码