以文本方式查看主题
-
Foxtable(狐表)
(http://foxtable.net/bbs/index.asp)
--
专家坐堂
(http://foxtable.net/bbs/list.asp?boardid=2)
----
我用的关联表里面可以添加,但是我要删除表里面的复选框选的l为0
(http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145915)
-- 作者:a937775799
-- 发布时间:2020/2/11 17:20:00
-- 我用的关联表里面可以添加,但是我要删除表里面的复选框选的l为0
Dim ta As WinForm.Table = e.Form.Controls("ta")
Dim l As List(of Row) = Tables( ta.Table.DataTable.Name ).GetCheckedRows
MessageBox.Show(l.Count & "-" & ta.Table.DataTable.Name )
-- 作者:有点蓝
-- 发布时间:2020/2/11 17:49:00
--
删除勾选的行?
Dim ta As WinForm.Table = e.Form.Controls("ta")
Dim l As List(of Row) = ta.Table.GetCheckedRows
for each r as row in l
r.delete
next
-- 作者:a937775799
-- 发布时间:2020/2/11 17:51:00
--
现在弹出来i为0 不管选了没
-- 作者:a937775799
-- 发布时间:2020/2/11 17:52:00
--
弹出的图片
此主题相关图片如下:1111111111111111111111.png
-- 作者:a937775799
-- 发布时间:2020/2/11 17:53:00
--
这个是关联表
此主题相关图片如下:222222222222222222222.png
-- 作者:a937775799
-- 发布时间:2020/2/11 19:17:00
--
代码改成你那样就好了我这样之前也是好的, 是哪里有问题了
Dim ta As WinForm.Table = e.Form.Controls("ta")
Dim l As List(of Row) = Tables( ta.Table.DataTable.Name ).GetCheckedRows
MessageBox.Show(l.Count & "-" & ta.Table.DataTable.Name )
-- 作者:有点蓝
-- 发布时间:2020/2/11 20:24:00
--
Dim ta As WinForm.Table = e.Form.Controls("ta")
Dim l As List(of Row) =
ta.Table
.GetCheckedRows