以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  我用的关联表里面可以添加,但是我要删除表里面的复选框选的l为0  (http://www.foxtable.com/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