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


  共有33524人关注过本帖树形打印复制链接

主题：实现“入库单在保存时自动生成会计凭证”
帅哥哟，离线，有人找我吗？
有点蓝
 小大  111楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/9/16 14:20:00 [只看该作者]

Select Case e.DataCol.Name
    Case "数量","金额"
        SystemReady = False
        If e.DataRow.IsNull("数量") OrElse e.DataRow.IsNull("金额")
            e.DataRow("单价")= Nothing
        Else
            e.DataRow("单价") = e.DataRow("金额") / e.DataRow("数量")
        End If
        SystemReady = True
End Select
Select Case e.DataCol.Name
    Case "数量","单价"
        SystemReady = False
        If e.DataRow.IsNull("数量") OrElse e.DataRow.IsNull("单价")
            e.DataRow("金额")= Nothing
        Else
            e.DataRow("金额") = e.DataRow("数量") * e.DataRow("单价")
        End If
        SystemReady = True
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
nths
 小大  112楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：306 积分：3860 威望：0 精华：0 注册：2017/3/25 15:34:00 		  发帖心情 Post By：2017/9/18 21:54:00 [只看该作者]

老师：你好！请教一下，窗口中的Table1输出最少为8输出最大也是8，打印代码：
e.Form.Page.Landscape = True '横向打印
e.Form.Page.PaperKind = 13
e.Form.Page.LeftMargin = 1 '设置左边距
e.Form.Page.RightMargin = 1 '设置右边距
e.Form.Page.TopMargin = 2 '设置上边距
e.Form.Page.BottomMargin = 2 '设置下边距
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.AutoRotate = False '禁止自动旋转打印内容
doc.Print()
合计模式代码：
With Tables("材料入库主表.材料入库明细表")
    .Cols("数量").GrandTotal = True 
    .Cols("金额").GrandTotal = True
    .GrandTotal = True
End With
怎样实现打印出合计行始终在第8行，如分页第8行也显示出该页的合计
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  113楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/9/18 22:13:00 [只看该作者]

参考这种，用控件模拟小计
 回到顶部
帅哥哟，离线，有人找我吗？
nths
 小大  114楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：306 积分：3860 威望：0 精华：0 注册：2017/3/25 15:34:00 		  发帖心情 Post By：2017/9/21 12:54:00 [只看该作者]

老师：你好！对窗口中的Table进行了统计，原来的Table表变成了生成的统计表，现在怎样把生成的统计表再返回到统计前的Table

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  115楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/9/21 13:21:00 [只看该作者]

以下是引用nths在2017/9/21 12:54:00的发言：
老师：你好！对窗口中的Table进行了统计，原来的Table表变成了生成的统计表，现在怎样把生成的统计表再返回到统计前的Table

 

重新绑定 http://www.foxtable.com/webhelp/scr/1909.htm

 
 回到顶部
帅哥哟，离线，有人找我吗？
nths
 小大  116楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：306 积分：3860 威望：0 精华：0 注册：2017/3/25 15:34:00 		  发帖心情 Post By：2017/9/21 14:02:00 [只看该作者]

老师：你好!我的窗口名“原材料入库明细表”，Table名“材料入库明细表”按钮“统计汇总”Click代码：

Dim g As New GroupTableBuilder("统计表1", DataTables("原材料入库明细表_材料入库明细表"))
g.Groups.AddDef("供应商名称")
g.Groups.AddDef("物料名称")
g.Totals.AddDef("数量")
g.Totals.AddDef("金额")
e.Form.Controls("材料入库明细表").Table.DataSource = g.BuildDataSource

得到了统计表，现在设置了一个“取消统计汇总”按钮，写什么代码 能把刚生成的统计表取消，变成原来需要统计的表，谢谢你的指导！
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  117楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/9/21 15:22:00 [只看该作者]

 

[此贴子已经被作者于2017/9/21 15:23:00编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  118楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/9/21 15:24:00 [只看该作者]

建议弄两个表，一个原表、一个统计表。显示一个隐藏另一个，相互交替。
 回到顶部
帅哥哟，离线，有人找我吗？
nths
 小大  119楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：306 积分：3860 威望：0 精华：0 注册：2017/3/25 15:34:00 		  发帖心情 Post By：2017/9/21 15:40:00 [只看该作者]

老师：有没有一个关闭临时表的命令

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  120楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/9/21 16:24:00 [只看该作者]

以下是引用nths在2017/9/21 15:40:00的发言：
老师：有没有一个关闭临时表的命令

 

DataTables.Unload("表A")
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询