[求助]另类的数据跨表传递 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]另类的数据跨表传递

共有4691人关注过本帖树形打印复制链接主题：[求助]另类的数据跨表传递

gohtml

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：107 积分：863 威望：0 精华：0 注册：2013/3/12 12:42:00

[求助]另类的数据跨表传递 发帖心情

Post By：2013/5/4 12:42:00 [只看该作者]

图片点击可在新窗口打开查看此主题相关图片如下：数据筛选传递.png

下载信息 [文件大小：下载次数： ]
点击浏览该文件:数据筛选传递.table

gohtml

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：107 积分：863 威望：0 精华：0 注册：2013/3/12 12:42:00

Post By：2013/5/4 16:51:00 [只看该作者]

没人帮忙看看吗?

Bin

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/5/4 16:54:00 [只看该作者]

完全摸不着头脑你想干什么.

gohtml

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：107 积分：863 威望：0 精华：0 注册：2013/3/12 12:42:00

Post By：2013/5/4 17:06:00 [只看该作者]

第一个问题: 把左边表的内容按照"编号"列等于0值,得出9条数据.然后把这9条数据赋值给右边的"房价信息"表

第二个问题: 把"编号"列等于0值的"日期" 赋值给 "房价信息"表的"开始日期" 列

把"编号"列等于1值的"日期" 赋值给 "房价信息"表的"结束日期" 列

Bin

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/5/4 17:11:00 [只看该作者]

你左边 3行和5行完全一样的预订编号和编号怎么区分?

gohtml

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：107 积分：863 威望：0 精华：0 注册：2013/3/12 12:42:00

Post By：2013/5/4 17:16:00 [只看该作者]

区分在房价编号

Bin

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/5/4 17:17:00 [只看该作者]

生成编号的代码你自己添加吧.

下载信息 [文件大小：下载次数： ]
点击浏览该文件:数据筛选传递.table

[此贴子已经被作者于2013-5-4 17:26:45编辑过]

gohtml

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：107 积分：863 威望：0 精华：0 注册：2013/3/12 12:42:00

Post By：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

这是编号获得的代码

下一主题 >> << 上一主题

主题：[求助]另类的数据跨表传递