Foxtable(狐表)用户栏目专家坐堂 → [求助]复选框选择删除


  共有2431人关注过本帖树形打印复制链接

主题:[求助]复选框选择删除

帅哥哟,离线,有人找我吗?
riyuan
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:404 积分:3080 威望:0 精华:0 注册:2013/4/9 11:49:00
[求助]复选框选择删除  发帖心情 Post By:2023/11/27 8:51:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:屏幕截图 2023-11-27 085012.png
图片点击可在新窗口打开查看

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110544 积分:562604 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/11/27 9:00:00 [只看该作者]

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

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


 回到顶部
帅哥哟,离线,有人找我吗?
riyuan
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:404 积分:3080 威望:0 精华:0 注册:2013/4/9 11:49:00
  发帖心情 Post By:2023/11/27 10:42:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110544 积分:562604 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/11/27 10:43:00 [只看该作者]

改为自己表格的主键,或者唯一的编号之类的列
[此贴子已经被作者于2023/11/27 10:43:51编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
riyuan
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:404 积分:3080 威望:0 精华:0 注册:2013/4/9 11:49:00
  发帖心情 Post By:2023/11/27 10:56:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:屏幕截图 2023-11-27 105519.png
图片点击可在新窗口打开查看
数据 类型不匹配
图片点击可在新窗口打开查看此主题相关图片如下:屏幕截图 2023-11-27 105449.png
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110544 积分:562604 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/11/27 11:06:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
riyuan
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:404 积分:3080 威望:0 精华:0 注册:2013/4/9 11:49:00
  发帖心情 Post By:2023/11/27 16:59:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:屏幕截图 2023-11-27 165653.png
图片点击可在新窗口打开查看
在没有选中的情况,为什么仍要继续执行下面的代码 ,求助如何优化首先判断是否选中,没有选中就提示“未选中记录”,如果有选中再执行删除
[此贴子已经被作者于2023/11/27 16:58:55编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110544 积分:562604 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/11/27 17:24:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
riyuan
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:404 积分:3080 威望:0 精华:0 注册:2013/4/9 11:49:00
  发帖心情 Post By:2023/11/27 19:29:00 [只看该作者]

改了还是不行呢

图片点击可在新窗口打开查看此主题相关图片如下:屏幕截图 2023-11-27 192418.png
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110544 积分:562604 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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 

 回到顶部