- 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=65220)
-- 发布时间：2015/3/11 17:24:00
-- 求帮助求思路
求帮助
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2015/3/11 17:34:00
--
最简单的方式,建立好表结构后,编码统计 参考帮助http://www.foxtable.com/help/topics/0681.htm
-- 发布时间：2015/3/11 18:21:00
-- 看不懂，求代码
看不懂，求代码
-- 发布时间：2015/3/11 18:31:00
--
汗......
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2015/3/11 19:31:00
-- 新手不要见怪
麻烦如果是外部数据源怎么改啊
-- 发布时间：2015/3/11 19:32:00
--
指定数据源
http://www.foxtable.com/help/topics/2912.htm
-- 发布时间：2015/3/11 19:58:00
--
给你弄个简单版的
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2015/3/11 19:59:00
-- 不好意思
很久多不玩了。而且原来也没玩过开发，就最基本的一直用用。麻烦再问问，可用余额和还款日期好像都是不对的。
-- 发布时间：2015/3/11 20:00:00
--
看7楼。还款日期什么不对，余额哪里不对。
-- 发布时间：2015/3/11 20:10:00
--
日期问题，就这样给，余额指哪里不对？
或者你先消化代码，代码逻辑很简单
Dim dt_xyk As DataTable = DataTables("信用卡")
Dim dt_lsz As DataTable = DataTables("流水账")
Dim dt_dyyh As DataTable = DataTables("当月应还")
dt_dyyh.DataRows.Clear
For Each dr As DataRow In dt_xyk.DataRows
Dim ndr As DataRow = dt_dyyh.AddNew
ndr("账户名称") = dr("账户名称")
Dim d As Date = new Date(Date.Today.year, Date.Today.Month, 1)
ndr("账单日") = d.AddDays(dr("账单日")-1)
ndr("转出") = dt_lsz.Compute("sum(金额)", "账户名称 = \'" & ndr("账户名称") & "\' and 日期 <= #" & ndr("账单日") & "# and 类别 = \'转出\'")
ndr("转入") = dt_lsz.Compute("sum(金额)", "账户名称 = \'" & ndr("账户名称") & "\' and 日期 <= #" & ndr("账单日") & "# and 类别 = \'转入\'")
ndr("信用额度") = dr("信用额度")
ndr("当月应还") = ndr("转出") - ndr("转入")
ndr("可用额度") = ndr("信用额度") - ndr("转出") + ndr("转入")
If val(dr("还款日")) < val(dr("账单日")) Then
ndr("还款日") = d.AddDays(dr("还款日")-1).AddMonths(1)
Else
ndr("还款日") = d.AddDays(dr("还款日")-1)
End If
Next
e.Form.Controls("Table1").Table.DataSource = DataTables("当月应还")