标题：[求助]复选框选择删除

1楼

riyuan 发表于：2023/11/27 8:51:00

此主题相关图片如下：屏幕截图 2023-11-27 085012.png

为什么执行上述删除提示错误

2楼

有点蓝 发表于：2023/11/27 9:00:00

因为把sql和代码混淆了，不能混用的。

cmd.CommandText ="delete * From {党员信息表} Where [_identify]=" & r("_identify")

3楼

riyuan 发表于：2023/11/27 10:42:00

出出这种提示，我的表中没有_identify字段

4楼

有点蓝 发表于：2023/11/27 10:43:00

改为自己表格的主键，或者唯一的编号之类的列

[此贴子已经被作者于2023/11/27 10:43:51编辑过]

5楼

riyuan 发表于：2023/11/27 10:56:00

此主题相关图片如下：屏幕截图 2023-11-27 105519.png

数据类型不匹配

此主题相关图片如下：屏幕截图 2023-11-27 105449.png

6楼

有点蓝 发表于：2023/11/27 11:06:00

字符列加上单引号：http://www.foxtable.com/webhelp/topics/1284.htm

7楼

riyuan 发表于：2023/11/27 16:59:00

此主题相关图片如下：屏幕截图 2023-11-27 165653.png

在没有选中的情况，为什么仍要继续执行下面的代码，求助如何优化首先判断是否选中，没有选中就提示“未选中记录”，如果有选中再执行删除

[此贴子已经被作者于2023/11/27 16:58:55编辑过]

8楼

有点蓝 发表于：2023/11/27 17:24:00

把删除的代码放到循环里面啊，放到外面干什么。

9楼

riyuan 发表于：2023/11/27 19:29:00

改了还是不行呢

此主题相关图片如下：屏幕截图 2023-11-27 192418.png

10楼

有点蓝 发表于：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()

messageBox.Show("删除成功")

End If

共10 条记录, 每页显示 10 条, 页签: [1]