- 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=102094)
-- 发布时间：2017/6/13 12:00:00
-- [求助]复选框批量填入
如图，我想设置成点击确认按钮会将表A打勾的创建人列全部填入listbox1选定的内容要怎么做
-- 发布时间：2017/6/13 12:06:00
--
Dim t As Table = Tables("表A")
For Each r As Row In t.GetCheckedRows
r("第一列") = Forms("窗口1").Controls("listbox1").SelectedValue
Next
-- 发布时间：2017/6/15 11:00:00
--
此主题相关图片如下：qq截图20170615105738.png
如果我想将左侧表中打勾的创建人列平均填入右侧打勾的人要怎么做，同时修改创建日期为当天的日期。。
-- 发布时间：2017/6/15 11:03:00
--
平均填入？怎么个平均法？
-- 发布时间：2017/6/15 11:19:00
--
就是比如我勾上了101 102 103表A第一个创建人填101第二个填102第三个填103然后循环填入
-- 发布时间：2017/6/15 12:31:00
--
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
-- 发布时间：2017/6/15 14:27:00
--
此主题相关图片如下：qq截图20170615142626.png
提示转换无效
-- 发布时间：2017/6/15 15:12:00
--
此主题相关图片如下：qq截图20170615151118.png
转换无效图之前上错图了
-- 发布时间：2017/6/15 15:28:00
--
改成
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