共6 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：请教老师窗口SQLTable复选框取值问题。
1楼
菜鸟foxtable 发表于：2009/12/24 0:22:00代码如下：取值以逗号分隔，可惜第一个逗号不会弄掉。。。
不知道还有没有更好的取值方法？有劳老师们指点。
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 & ">","提示")
此主题相关图片如下：qq截图未命名.png
不知道还有没有更好的取值方法？有劳老师们指点。
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编辑过]
2楼
czy 发表于：2009/12/24 0:29:00MessageBox.Show("你选择的是<" & str.Trim(",") & ">","提示")
3楼
菜鸟foxtable 发表于：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编辑过]
4楼
菜鸟foxtable 发表于：2009/12/24 0:52:00楼上代码没有勾选时出错。。。。一楼不会。。。
需要加判断
If str <> "" Then
str = str.Trim(",")
End If
[此贴子已经被作者于2009-12-24 0:54:25编辑过]
5楼
riyuan 发表于：2023/9/15 16:22:00 选中了后，如果要删除后台（ACCESS）数据库的数据，请教代码如何写
6楼
有点蓝 发表于：2023/9/15 16:30:00以下是引用riyuan在2023/9/15 16:22:00的发言：
选中了后，如果要删除后台（ACCESS）数据库的数据，请教代码如何写
Tables("窗口1_Table1").Deletefor("第一列 in ('" & str.Trim(",").replace(",","','") & "')")
选中了后，如果要删除后台（ACCESS）数据库的数据，请教代码如何写
共6 条记录, 每页显示 10 条, 页签:
[1]