以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  选择执行指定记录  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=128096)

--  作者:sanny
--  发布时间:2018/11/28 19:20:00
--  选择执行指定记录

版主,请问一下,窗口中我进行了条件筛选,选出结果后,执行下面的代码,它把窗口表中没有选中的那些记录也钩上了,能否帮忙看看要调整哪些才能钩上只有选中的那些记录,谢谢。

 

Dim gx As WinForm.checkbox=e.Form.controls("勾选")
For Each r As Row In Tables("Orderlist").Rows
    r("Import") = gx.Checked
Next


图片点击可在新窗口打开查看此主题相关图片如下:捕获.png
图片点击可在新窗口打开查看

--  作者:sanny
--  发布时间:2018/11/28 19:21:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:捕获.png
图片点击可在新窗口打开查看

--  作者:有点色
--  发布时间:2018/11/28 20:48:00
--  

你表名写错了?

 

Dim gx As WinForm.checkbox=e.Form.controls("勾选")
Dim t As Table = e.Form.controls("Table1").Table
For i As Integer = t.TopPosition To t.BottomPosition
    Dim r As Row = t.Rows(i)
    r("Import") = gx.Checked
Next


 


--  作者:sanny
--  发布时间:2018/11/28 21:16:00
--  

表名是Table1 运行后不对,只选择了一条记录,就完了,是不是哪还是不对呀?


--  作者:有点甜
--  发布时间:2018/11/28 21:40:00
--  
Dim gx As WinForm.checkbox=e.Form.controls("勾选")
Dim t As Table = e.Form.controls("Table1").Table
For each r as row in t.rows
    r("Import") = gx.Checked
Next