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


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

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

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


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

没有弹出的分组,自然不会添加;分组之所以没有弹出,说明此分组下没有用户,你给每个分组都设置用户试试。

 

 


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


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

谢谢,老师指导 可以了


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


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

老师:你好!请教一下我定论义一个随机数 Dim Val1 As Integer = Rand.Next(200,300) 定义一个集合 Dim Names As New List(Of Integer)  现在要向这个集合中增加10个随机数,代码怎么写?谢谢!



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


加好友 发短信
等级:超级版主 帖子:107867 积分:548698 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/12/8 14:40:00 [只看该作者]

Dim Names As New List(Of Integer)
For i As Integer = 1 To 10
    names.Add(Rand.Next(200,300))
Next

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


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

谢谢老师指导!

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


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

再请教一下:如果定义一个随机数 Dim Val1 As Integer = Rand.Next(200,300) 定义一个集合 Dim Names As New List(Of Integer我想向这个集合增加的随机数和等于1800,代码怎么写?

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


加好友 发短信
等级:超级版主 帖子:107867 积分:548698 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/12/8 15:52:00 [只看该作者]

Dim Names As New List(Of Integer)
Dim sum As Integer
Do While sum < 1800
    If sum <= 1500
        Dim n As Integer = Rand.Next(200,300)
        names.Add(n)
        Output.Show(n)
        sum += n
    Else
        names.Add(1800-sum)
        Output.Show(sum)
        sum = 1800
    End If
Loop

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


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

谢谢!

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


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

老师:你好!你给代码 执行后是:218
295
262
216
251
232
291
1765

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


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

什么218?没看懂

 回到顶部