- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 自动生成问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68381)
-- 发布时间：2015/5/16 9:58:00
-- 自动生成问题
老师，
如何根据指定的表生成一个凭证，求思路。
格式如附件。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:生成.foxdb |
-- 发布时间：2015/5/16 10:03:00
--
生成什么? 能否说具体一些
-- 发布时间：2015/5/16 10:22:00
--
根据 例子1的项目号 科目编码 调整金额 生成一个凭证 保存在凭证表中
-- 发布时间：2015/5/16 10:23:00
--
怎么生成,随便生成一个随机字符串?
-- 发布时间：2015/5/16 10:31:00
--
按照例子1的
唯一值（这里面没加进去） 项目号+科目编码 先统计出 项目号+科目编码 小计
然后在凭证里 填上小计的 项目号 科目编码 金额列
-- 发布时间：2015/5/16 10:32:00
--
结果 是这样的
此主题相关图片如下：结果.png
-- 发布时间：2015/5/16 10:44:00
--
Dim dt As DataTable = DataTables("凭证")
Dim dt2 As DataTable = DataTables("例子1")
dt.DataRows.Clear
For Each s As String In dt2.GetValues("项目号")
Dim dr As DataRow = dt.AddNew
dr("项目号")=s
Dim drr As DataRow = dt.Find("项目号=\'" & s & "\'")
If drr IsNot Nothing Then
dr("科目编码")= drr("科目编码")
dr("借方金额")=dt2.Compute("sum(调整金额)","科目方向=\'0\' and 项目号=\'" & s & "\'")
dr("贷方金额")=dt2.Compute("sum(调整金额)","科目方向=\'1\' and 项目号=\'" & s & "\'")
End If
Next
MainTable=Tables("凭证")
代码如下,具体数值是怎么统计你没有说明我也不清楚, 你可以自行稍微修改一下