以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助:数据填充  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=32296)

--  作者:baixiaobai
--  发布时间:2013/4/28 18:33:00
--  求助:数据填充
求助:   数据: 有表A和表B     2张表
        
图片点击可在新窗口打开查看此主题相关图片如下:未命1名.jpg
图片点击可在新窗口打开查看


问题:表A中只有借出日期退还日期,如何计算出中间的这段日期,并且填加根据中间的这段日期,把单价填写到表B的日期_中呢?

如下图这样:

图片点击可在新窗口打开查看此主题相关图片如下:未2命名.jpg
图片点击可在新窗口打开查看


这是做的例子,请各位帮忙看下!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.foxdb


[此贴子已经被作者于2013-4-28 18:36:35编辑过]

--  作者:baixiaobai
--  发布时间:2013/4/28 20:13:00
--  
自己顶``
--  作者:baixiaobai
--  发布时间:2013/4/28 22:22:00
--  
1111111
--  作者:baixiaobai
--  发布时间:2013/4/29 9:21:00
--  
求助
--  作者:唐尸三摆手
--  发布时间:2013/4/29 10:15:00
--  
帮助搜索

分组统计和交叉统计的实现原理


--  作者:pyh6918
--  发布时间:2013/4/29 10:29:00
--  

我没升级,打不开,看这段代码:

Dim j As  Byte
For Each dr As DataRow In DataTables("表B").DataRows
    Dim h As DataRow=DataTables("表A").Find("编号=\'" & dr("编号") & "\'")
    If h IsNot Nothing Then
        Dim ks As Byte=h("借出日期").day
        Dim js As Byte=h("退还日期").day
        For j = ks To js
            dr("日期_" & j)=h("单价")
        Next
    End If
Next


--  作者:baixiaobai
--  发布时间:2013/4/29 12:45:00
--  
非常感谢楼上的解答!
--  作者:baixiaobai
--  发布时间:2013/4/29 17:27:00
--  
按此方法还是不对

假如表A是订单表,那就肯定有重复的编号和该编号下的日期录入, 但是现在 在 表B中通过测试,是不能实现的统计出重复录入信息的.

--  作者:pyh6918
--  发布时间:2013/4/29 18:28:00
--  
是不是你的目的没有说透!
--  作者:baixiaobai
--  发布时间:2013/4/29 19:15:00
--  
以下是引用pyh6918在2013-4-29 18:28:00的发言:
是不是你的目的没有说透!
是我没说清楚, 我从新说下,这是2个表嘛,表A(订单表),表B(统计表),
1,在表A中填写借出日期退还日期    在表B中自动计算出这段时间
2,把单价自动填加到计算出的这段时间内.
3.如果出现重复的时间段,那单价也累计进去
刚遇到的问题是,表A中再次填写了重复的编号后,表B就不再次统计了.