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


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

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

帅哥哟,离线,有人找我吗?
有点甜
  151楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

doubleClick事件

 

Dim cr = Tables("表A").Current
cr("第一列") = e.Row("第一列")
cr("第二列") = e.Row("第二列")


 回到顶部
帅哥哟,离线,有人找我吗?
nths
  152楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


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

谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
nths
  153楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


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

老师:你好!请教一下,我的成品出库表各行卷号分别是1、2、3、4、4 在命令窗口输入代码

Dim Lst As New List(Of String)
Dim Arys() As String

Lst = DataTables("成品出库明细表").GetValues("卷号")
Arys = Lst.ToArray() '将集合转换为数组
For Each nm As String In lst
    Dim Ary() As String= New String() {nm}
    Dim Str1 As String
    Str1 = String.Join("\", Ary)
    Output.Show(Str1)
   
Next

 

输出的为什么不是1\2\3\4 

而是

1

2

3

4


 回到顶部
帅哥,在线噢!
有点蓝
  154楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107321 积分:545866 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/3/10 10:29:00 [只看该作者]

Dim Lst As New List(Of String)
Dim Arys() As String
Lst = DataTables("成品出库明细表").GetValues("卷号")
Str1 = String.Join("\", Lst.ToArray)
Output.Show(Str1)

 回到顶部
帅哥哟,离线,有人找我吗?
nths
  155楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Select Case e.DataCol.Name
   
    Case "出库单号","成品编号","等级"
        If e.DataRow("审核") = False
            Dim Filter As String = "[出库单号] = '" & e.DataRow("出库单号") & "' and [成品编号] = '" & e.DataRow("成品编号") & "' and [等级] = '" & e.DataRow("等级") & "'and 审核 = false"
            e.DataRow("数量") = DataTables("成品出库明细表").Compute("Sum(数量)", Filter)
            e.DataRow("卷数") = DataTables("成品出库明细表").Compute("Count(卷号)", Filter)
           
            Dim Lst As New List(Of String)           
            Lst = DataTables("成品出库明细表").GetValues("卷号",Filter)         
           
                Dim Str1 As String
                Str1 = String.Join("\",  Ary.ToArray)
               
                e.DataRow("卷号") = Str1
               
        End If
End Select
老师:我这段代码,为什么汇总表的还是不能把明细表的卷号汇总显示在汇总表的卷号中

 回到顶部
帅哥哟,离线,有人找我吗?
nths
  156楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


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

解决了 谢谢老师

 回到顶部
帅哥哟,离线,有人找我吗?
nths
  157楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


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

老师:你好:请教一下,窗口两个文本框分另绑定表A中类别和编号,表中的编号是根据类别自动生成的编号,怎样能实现在表A没在加载以前的数据情况下,编号还能按以前继续生成编号, 是否可以在窗口中增加一个从数据库中加载的表,然后编号根据这个来自动生成?


 回到顶部
帅哥哟,离线,有人找我吗?
nths
  158楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


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

老师:你好:请教一下,窗口两个文本框分另绑定表A中类别和编号,表中的编号是根据类别自动生成的编号,怎样能实现在表A没在加载以前的数据情况下,编号还能按以前继续生成编号, 是否可以在窗口中增加一个从数据库中加载的表A,然后编号根据这个表A来自动生成?


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  159楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

以下是引用nths在2018/3/12 13:38:00的发言:

老师:你好:请教一下,窗口两个文本框分另绑定表A中类别和编号,表中的编号是根据类别自动生成的编号,怎样能实现在表A没在加载以前的数据情况下,编号还能按以前继续生成编号, 是否可以在窗口中增加一个从数据库中加载的表,然后编号根据这个来自动生成?

 

如果你根据这个帮助文档写代码的,你把compute改成sqlCompute即可

 

http://www.foxtable.com/webhelp/scr/2403.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
nths
  160楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


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

谢谢

 


 回到顶部