主题：[求助]复选框批量填入

如图，我想设置成点击确认按钮会将表A打勾的创建人列全部填入listbox1选定的内容要怎么做

Dim t As Table = Tables("表A")
For Each r As Row In t.GetCheckedRows
    r("第一列") = Forms("窗口1").Controls("listbox1").SelectedValue
Next

此主题相关图片如下：qq截图20170615105738.png

如果我想将左侧表中打勾的创建人列平均填入右侧打勾的人要怎么做，同时修改创建日期为当天的日期。。

平均填入？怎么个平均法？

就是比如我勾上了101  102  103表A第一个创建人填101第二个填102第三个填103然后循环填入

Dim t As Table = Tables("表A")

Dim lsb As WinForm.CheckedListBox = Forms("窗口1").Controls("CheckedListBox1")
Dim all = lsb.CheckedIndices
Dim i As Integer = 0
For Each r As Row In t.GetCheckedRows
    r("第一列") = lsb.items(all(i))
    i += 1
    If i = all.count Then i = 0
Next

此主题相关图片如下：qq截图20170615142626.png

提示转换无效

此主题相关图片如下：qq截图20170615151118.png

转换无效图之前上错图了

改成

 

Dim t As Table = Tables("表A")

Dim lsb As WinForm.CheckedListBox = Forms("窗口1").Controls("CheckedListBox1")
Dim all = lsb.CheckedIndices
Dim i As Integer = 0
For Each r As Row In t.GetCheckedRows
    r("第一列") = lsb.items(all(i))("你绑定的列名")
    i += 1
    If i = all.count Then i = 0
Next