- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]复选框选择删除 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189349)
-- 发布时间：2023/11/27 8:51:00
-- [求助]复选框选择删除
此主题相关图片如下：屏幕截图 2023-11-27 085012.png
为什么执行上述删除提示错误
-- 发布时间：2023/11/27 9:00:00
--
因为把sql和代码混淆了，不能混用的。
cmd.CommandText ="delete * From {党员信息表} Where [_identify]=" & r("_identify")
-- 发布时间：2023/11/27 10:42:00
--
出出这种提示，我的表中没有_identify字段
-- 发布时间：2023/11/27 10:43:00
--
改为自己表格的主键，或者唯一的编号之类的列
[此贴子已经被作者于2023/11/27 10:43:51编辑过]
-- 发布时间：2023/11/27 10:56:00
--
此主题相关图片如下：屏幕截图 2023-11-27 105519.png
数据 类型不匹配
此主题相关图片如下：屏幕截图 2023-11-27 105449.png
-- 发布时间：2023/11/27 11:06:00
--
字符列加上单引号：http://www.foxtable.com/webhelp/topics/1284.htm
-- 发布时间：2023/11/27 16:59:00
--
此主题相关图片如下：屏幕截图 2023-11-27 165653.png
在没有选中的情况，为什么仍要继续执行下面的代码 ，求助如何优化首先判断是否选中，没有选中就提示“未选中记录”，如果有选中再执行删除
[此贴子已经被作者于2023/11/27 16:58:55编辑过]
-- 发布时间：2023/11/27 17:24:00
--
把删除的代码放到循环里面啊，放到外面干什么。
-- 发布时间：2023/11/27 19:29:00
--
改了还是不行呢
此主题相关图片如下：屏幕截图 2023-11-27 192418.png
-- 发布时间：2023/11/27 20:00:00
--
Dim cmd As New SQLCommand
cmd.Connectionlame = "dyxx"
Dim rs As List(Of Row) = Tables("main_table1").GetCheckedRows
If rs.Count = 0 Then
messageBox.Show("没有可操作的记录")
Else
Dim Result As DialogResult = MessageBox.Show("是否删除选定的数据?", "提示", MessageBoxButtons.YesHo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
For Each r As Row In rs
cmd.CommandText = "delete From [党员信息表] Where [党员编号] = \'" & r("党员编号") & "\'"
cmdExecuteNonQuery()
Next
messageBox.Show("删除成功")
End If
End If