以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]分配例子  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=142220)

--  作者:xunxun0903
--  发布时间: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

--  作者:xunxun0903
--  发布时间:2019/10/21 15:54:00
--  
cool  就 是这样 谢谢!