- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教老师窗口SQLTable复选框取值问题。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=5613)
-- 发布时间：2009/12/24 0:22:00
-- 请教老师窗口SQLTable复选框取值问题。
代码如下：取值以逗号分隔，可惜第一个逗号不会弄掉。。。
不知道还有没有更好的取值方法？有劳老师们指点。
Dim rs As List(of Row) = Tables("窗口1_Table1").GetCheckedRows()
Dim str As String
For Each r As Row in rs
str = str & "," & r("第一列")
Next
MessageBox.Show("你选择的是<" & str & ">","提示")
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
此主题相关图片如下：qq截图未命名.png
[此贴子已经被作者于2009-12-24 0:23:35编辑过]
-- 发布时间：2009/12/24 0:29:00
--
MessageBox.Show("你选择的是<" & str.Trim(",") & ">","提示")
-- 发布时间：2009/12/24 0:39:00
--
以下是引用czy在2009-12-24 0:29:00的发言：
MessageBox.Show("你选择的是<" & str.Trim(",") & ">","提示")
MessageBox.Show("你选择的是<" & str.Trim(",") & ">","提示")
我晕。
Dim rs As List(of Row) = Tables("窗口1_Table1").GetCheckedRows()
Dim str As String
For Each r As Row in rs
str = str & "," & r("第一列")
Next
str = str.Trim(",")
感觉怪怪的。
[此贴子已经被作者于2009-12-24 0:45:13编辑过]
-- 发布时间：2009/12/24 0:52:00
--
楼上代码没有勾选时出错。。。。一楼不会。。。
需要加判断
If str <> "" Then
str = str.Trim(",")
End If
[此贴子已经被作者于2009-12-24 0:54:25编辑过]
-- 发布时间：2023/9/15 16:22:00
--
选中了后，如果要删除后台（ACCESS）数据库的数据，请教代码如何写
-- 发布时间：2023/9/15 16:30:00
--
以下是引用riyuan在2023/9/15 16:22:00的发言：
选中了后，如果要删除后台（ACCESS）数据库的数据，请教代码如何写
Tables("窗口1_Table1").Deletefor("第一列 in (\'" & str.Trim(",").replace(",","\',\'") & "\')")
选中了后，如果要删除后台（ACCESS）数据库的数据，请教代码如何写