请教老师窗口SQLTable复选框取值问题。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教老师窗口SQLTable复选框取值问题。

共有16727人关注过本帖树形打印复制链接主题：请教老师窗口SQLTable复选框取值问题。

菜鸟foxtable

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

菜鸟中的老鸟
等级：七尾狐帖子：1486 积分：10064 威望：0 精华：9 注册：2008/11/14 8:54:00

请教老师窗口SQLTable复选框取值问题。 发帖心情

Post By：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 & ">","提示")

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

此主题相关图片如下：qq截图未命名.png

[此贴子已经被作者于2009-12-24 0:23:35编辑过]

菜鸟foxtable

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

菜鸟中的老鸟
等级：七尾狐帖子：1486 积分：10064 威望：0 精华：9 注册：2008/11/14 8:54:00

Post By：2009/12/24 0:39:00 [显示全部帖子]

以下是引用czy在2009-12-24 0:29:00的发言：

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编辑过]

菜鸟foxtable

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

菜鸟中的老鸟
等级：七尾狐帖子：1486 积分：10064 威望：0 精华：9 注册：2008/11/14 8:54:00

Post By：2009/12/24 0:52:00 [显示全部帖子]

楼上代码没有勾选时出错。。。。一楼不会。。。图片点击可在新窗口打开查看

需要加判断
If str <> "" Then
str = str.Trim(",")
End If

[此贴子已经被作者于2009-12-24 0:54:25编辑过]

下一主题 >> << 上一主题

主题：请教老师窗口SQLTable复选框取值问题。