- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]怎么将数据表里的数据按照日期提取到另一张表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=86020)
-- 发布时间：2016/6/8 9:47:00
-- [求助]怎么将数据表里的数据按照日期提取到另一张表
我想将数据表里的人员基本资料和六月份的五号、十号、十五号、二十号、二十五号、三十号的金额提取出来，并且写入到六月报表里。能否实现？
有可能我的表设计的有问题，如果不能实现，我需要怎么改进我的表格。求帮忙，谢谢了。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:实验1.rar |
-- 发布时间：2016/6/8 10:15:00
--
大神帮忙啊
-- 发布时间：2016/6/8 12:02:00
--
表设计有问题，不利于统计。
数据表那里，一个日期一次还款，都录入一行数据，要生成报表，就直接交叉统计即可。
http://www.foxtable.com/help/topics/0165.htm
-- 发布时间：2016/6/8 12:08:00
--
求助：
数据表应该怎样设置才能好实现这个功能？因为我是固定的每月5日、10日、15日、20日、25日、30日还款。但是同一个人同一个月会产生多次数据(1-4号借款的统一5号开始第一笔还款。6-9号借款的是统一10号开始第一笔还款。。以此类推。怎么样才能把这个表建立的很有效？)
-- 发布时间：2016/6/8 12:17:00
--
数据表这样做：姓名、日期，还款金额。
每次还款，用一行数据记录。
-- 发布时间：2016/6/8 12:24:00
--
我数据表里的日期都是自动生成的，如果一列日期的话怎么实现这样的效果？求助
-- 发布时间：2016/6/8 12:27:00
--
DataRowAdded事件
e.DataRow("日期") = Date.Today
-- 发布时间：2016/6/8 12:31:00
--
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
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)
Next
End Select
您看一下，如果我按照姓名 日期 金额来建立数据表的话。这两段代码应该怎么改。。。
-- 发布时间：2016/6/8 13:59:00
--
大神，我说需求，您能不能帮我设计一下我的表格呢？在这方面我实在是小白。
-- 发布时间：2016/6/8 15:56:00
--
参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=86031&skin=0
既然是小白，从视频和帮助文档学起
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187