实现“入库单在保存时自动生成会计凭证” - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 实现“入库单在保存时自动生成会计凭证”

共有33522人关注过本帖树形打印复制链接主题：实现“入库单在保存时自动生成会计凭证”

有点色

小大 91楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/5/31 12:06:00 [只看该作者]

如果需要显示为2位小数，可以设置列 http://www.foxtable.com/webhelp/scr/1659.htm

nths

小大 92楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：306 积分：3860 威望：0 精华：0 注册：2017/3/25 15:34:00

Post By：2017/5/31 13:22:00 [只看该作者]

谢谢老师指导

nths

小大 93楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：306 积分：3860 威望：0 精华：0 注册：2017/3/25 15:34:00

Post By：2017/6/3 12:44:00 [只看该作者]

老师：你好！要统计当天数据我这个代码Dim b As New GroupTableBuilder("统计表1",DataTables("成品入库明细表"))

b.Groups.AddDef(("客户名称_子名"),("客户名称"))

b.Groups.AddDef("品名")

b.Groups.AddDef("花号")

b.Groups.AddDef("等级")

b.Totals.AddDef("数量")

b.Totals.AddDef(("卷号"),AggregateEnum.Count,("卷数"))

b.Subtotal = True

Tables("成品入库统计表_成品入库明细表").DataSource = b.BuildDataSource()

怎样改？

有点蓝

小大 94楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/6/3 14:09:00 [只看该作者]

加个筛选条件

Dim b As New GroupTableBuilder("统计表1",DataTables("成品入库明细表"))

b.Groups.AddDef(("客户名称_子名"),("客户名称"))

b.Groups.AddDef("品名")

b.Groups.AddDef("花号")

b.Groups.AddDef("等级")

b.Totals.AddDef("数量")

b.Totals.AddDef(("卷号"),AggregateEnum.Count,("卷数"))

b.Subtotal = True

b.Filter = "日期='" & Date.Today & "'"

Tables("成品入库统计表_成品入库明细表").DataSource = b.BuildDataSource()

nths

小大 95楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：306 积分：3860 威望：0 精华：0 注册：2017/3/25 15:34:00

Post By：2017/6/4 7:46:00 [只看该作者]

谢谢老师指导！

nths

小大 96楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：306 积分：3860 威望：0 精华：0 注册：2017/3/25 15:34:00

Post By：2017/6/4 10:08:00 [只看该作者]

老师：你好！现在我想按窗口中“起始日期”e.Form.Controls("label5").text和结束日期e.Form.Controls("label7").text 进行统计，这个筛选条件”b.Filter = "日期='" & Date.Today & "'"怎么改才能实现

有点色

小大 97楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/4 11:37:00 [只看该作者]

b.Filter = "日期>='" & e.Form.Controls("label5").text & "' and 日期<='" & e.Form.Controls("label7").text & "'"

nths

小大 98楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：306 积分：3860 威望：0 精华：0 注册：2017/3/25 15:34:00

Post By：2017/6/9 9:40:00 [只看该作者]

老师：你好！麻烦你帮忙看一下，为什么“已审核”图片在窗口没有

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.rar

显示

有点色

小大 99楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/9 9:56:00 [只看该作者]

你的图片文件改名为已审核.png

而不是已审核.png.png

nths

小大 100楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：306 积分：3860 威望：0 精华：0 注册：2017/3/25 15:34:00

Post By：2017/6/9 10:15:00 [只看该作者]

谢谢！老师指导

下一主题 >> << 上一主题

总数 221 1.. 上一页 5 6 7 8 9 10 11 12 13 14 下一页 ..23

主题：实现“入库单在保存时自动生成会计凭证”