[求助]分配例子 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]分配例子

共有3876人关注过本帖树形打印复制链接主题：[求助]分配例子

xunxun0903

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

等级：童狐帖子：278 积分：3395 威望：0 精华：0 注册：2017/12/20 15:51:00

[求助]分配例子 发帖心情

Post By：2019/10/21 15:28:00 [只看该作者]

此主题相关图片如下：tim图片20191021151957.png

下载信息 [文件大小：下载次数： ]
点击浏览该文件:crm.foxdb

dear 大神们：

做一个CRM系统给销售分配例子的功能，点击分配按钮弹出带复选框的销售用户表。点击分配后将用户表英文名填充到例子表的“分配顾问例”中，问题来了。。。。

1，上图9个例了，我选中了2个销售应该第一个销售分配1，3，5，7，9。第二个只能分到2，4，6，8。（一行一次循环排）这样代码咋写？如果有更好的分配还望大神多多指点。

有点蓝

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

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

Post By：2019/10/21 15:46:00 [只看该作者]

业务我不懂，只能按照您的描述来解决问题。

这个意思？

Dim t As Table = e.Form.Controls("Table1").Table

Dim rs As List(of Row) = t.GetCheckedRows

If rs.Count = 0 Then Return

Dim t2 As Table = Forms("主窗口").Controls("Table1").Table

Dim cnt As Integer = t2.Rows.Count

For i As Integer = 0 To cnt - 1 Step rs.Count

For j As Integer = 0 To rs.Count - 1

If i+j < cnt Then

t2.Rows(i+j)("分配顾问") = rs(j)("英文名")

End If

xunxun0903

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

等级：童狐帖子：278 积分：3395 威望：0 精华：0 注册：2017/12/20 15:51:00

Post By：2019/10/21 15:54:00 [只看该作者]

cool 就是这样谢谢！

主题：[求助]分配例子