- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]分配例子 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=142220)
-- 发布时间：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。（一行一次循环排）这样代码咋写？如果有更好的分配还望大神多多指点。
-- 发布时间：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
Next
Next
-- 发布时间：2019/10/21 15:54:00
--
cool 就 是这样 谢谢！