[求助]怎么将数据表里的数据按照日期提取到另一张表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我想将数据表里的人员基本资料和六月份的五号、十号、十五号、二十号、二十五号、三十号的金额提取出来，并且写入到六月报表里。能否实现？

有可能我的表设计的有问题，如果不能实现，我需要怎么改进我的表格。求帮忙，谢谢了。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:实验1.rar

表设计有问题，不利于统计。

数据表那里，一个日期一次还款，都录入一行数据，要生成报表，就直接交叉统计即可。

求助：

数据表应该怎样设置才能好实现这个功能？因为我是固定的每月5日、10日、15日、20日、25日、30日还款。但是同一个人同一个月会产生多次数据(1-4号借款的统一5号开始第一笔还款。6-9号借款的是统一10号开始第一笔还款。。以此类推。怎么样才能把这个表建立的很有效？)

数据表这样做：姓名、日期，还款金额。

每次还款，用一行数据记录。

我数据表里的日期都是自动生成的，如果一列日期的话怎么实现这样的效果？求助

DataRowAdded事件

e.DataRow("日期") = Date.Today

DataRowAdded事件

If e.DataCol.Name = "第一次还款时间" Then

If e.NewValue = Nothing Then

e.DataRow("第二次还款时间") = Nothing

e.DataRow("第三次还款时间") = Nothing

e.DataRow("第四次还款时间") = Nothing

e.DataRow("第五次还款时间") = Nothing

e.DataRow("第六次还款时间") = Nothing

Else

e.DataRow("第二次还款时间") = e.newvalue.AddDays(5)

e.DataRow("第三次还款时间") = e.newvalue.AddDays(10)

e.DataRow("第四次还款时间") = e.newvalue.AddDays(15)

e.DataRow("第五次还款时间") = e.newvalue.AddDays(20)

e.DataRow("第六次还款时间") = e.newvalue.AddDays(25)

End If

Select Case e.DataCol.Name

Case "分期方式","分期点位"

Dim vals() As Integer

If e.DataRow("分期方式") = "方式一" Then

vals = New Integer(){200,300,400,500,0,8600}

ElseIf e.DataRow("分期方式") = "方式二" Then

vals = New Integer(){200,300,400,500,0,500}

Else

Return

End If

Dim nms() As String = {"第一笔金额","第二笔金额","第三笔金额","第四笔金额","第五笔金额","第六笔金额"}

For i As Integer = 0 To nms.Length -1

e.DataRow(nms(i)) = e.DataRow("分期点位") * vals(i)

End Select

您看一下，如果我按照姓名日期金额来建立数据表的话。这两段代码应该怎么改。。。图片点击可在新窗口打开查看

大神，我说需求，您能不能帮我设计一下我的表格呢？在这方面我实在是小白。图片点击可在新窗口打开查看

主题：[求助]怎么将数据表里的数据按照日期提取到另一张表