Foxtable(狐表)用户栏目专家坐堂 → 删除数据‘求助


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

主题:删除数据‘求助

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


加好友 发短信
等级:婴狐 帖子:22 积分:263 威望:0 精华:0 注册:2023/10/29 14:24:00
删除数据‘求助  发帖心情 Post By:2023/11/6 20:46:00 [只看该作者]

后端代码
Dim sb As New StringBuilder
Select Case e.Path
    Case "gzdel.htm" '删除订单
        e.Response.AddHeader("Access-Control-Allow-Origin", "*")
        e.Response.AddHeader("Access-Control-Allow-Methods", "OPTIONS,GET,POST,PUT,PATCH,DELETE") 
        If e.GetValues.ContainsKey("订货ID") Then
            Dim cnt As Integer
            cnt = DataTables("产品库_固装家具").SQLDeleteFor("[_Identify] = " & e.GetValues("订货ID"))
            If cnt > 0 Then
                Output.Show("删除成功!")
            Else
                Output.Show("删除失败!")
            End If
        Else
            Output.Show("糟糕,可能出错了!")
        End If
End Select



前段代码可以执行 但是后端数据没有删除 求助老师

Case 'del':
    layer.confirm('您确定删除当前记录吗?',{icon:3,title:'确认删除'},function(index){
    obj.del();
    var delspecifyID = '订货ID='+obj.data['订货ID']    
    layer.alert(delspecifyID);
    $.ajax({
    data: delspecifyID, 
    url:'http://192.168.110.147/gzdel.htm',    
    type:'POST',
    dataType: 'json',    
    success:Function (res){
    console.log(res)
    If (res.code =  = 200){ Then
        obj.del();
        layer.close(index); /  / 关闭弹框
        }
        }
        }); 
        });
        break;

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


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

后的测试的时候Output.Show显示了哪个内容?

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


加好友 发短信
等级:婴狐 帖子:22 积分:263 威望:0 精华:0 注册:2023/10/29 14:24:00
  发帖心情 Post By:2023/11/6 21:09:00 [只看该作者]

前后端都没有任何显示

后端怎么获取前端数据 获取到后怎么判断数据类型
[此贴子已经被作者于2023/11/6 21:10:48编辑过]

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


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

如果是发布后的项目,Output.Show改为使用messagebox.show调试;如果是源项目,打开命令窗口查看Output.Show结果。

后端获取到的文本统一都是字符串。没有其它数据类型。

如果是发送的json数据,服务端应该使用e.PlainText获取,而不是e.GetValues。

如果前端要发送json数据,感觉应该是这样才对
……
var delspecifyID = {订货ID:obj.data['订货ID']}    
    layer.alert(delspecifyID);
    $.ajax({
    data: delspecifyID , 
……

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


加好友 发短信
等级:婴狐 帖子:22 积分:263 威望:0 精华:0 注册:2023/10/29 14:24:00
  发帖心情 Post By:2023/11/6 21:20:00 [只看该作者]

现在显示是是    糟糕,可能出错了
改成了
var delspecifyID = {订货ID:obj.data.订货ID};
错误如下
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2022.8.18.1
错误所在事件:自定义函数,表单删除
详细错误信息:
调用的目标发生了异常。
无法访问已释放的对象。
对象名:“System.Net.HttpListenerRequest”。
[此贴子已经被作者于2023/11/6 21:27:37编辑过]

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


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

贴出函数完整代码

贴出外部调用这个函数的完整代码

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


加好友 发短信
等级:婴狐 帖子:22 积分:263 威望:0 精华:0 注册:2023/10/29 14:24:00
  发帖心情 Post By:2023/11/6 22:51:00 [只看该作者]

太多 打包
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:前后端代码.txt


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


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

贴出httprequest调用【表单删除】这个函数的完整代码
[此贴子已经被作者于2023/11/6 22:56:24编辑过]

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


加好友 发短信
等级:婴狐 帖子:22 积分:263 威望:0 精华:0 注册:2023/10/29 14:24:00
  发帖心情 Post By:2023/11/6 22:59:00 [只看该作者]

Dim e As RequestEventArgs = args(0)
Dim sb As New StringBuilder
Select Case e.Path
    Case "gzdel.htm" '删除订单
        e.Response.AddHeader("Access-Control-Allow-Origin", "*")
        e.Response.AddHeader("Access-Control-Allow-Methods", "OPTIONS,GET,POST,PUT,PATCH,DELETE")
        Dim ID As String = e.Values("订货ID")
        If e.GetValues.ContainsKey("ID") Then
            DataTables("产品库_固装家具").SQLDeleteFor("订货ID =   '" & ID & "'")
            If cnt > 0 Then
                MessageBox.Show("删除成功!")
            Else
                MessageBox.Show("删除失败!")
            End If
        Else
            MessageBox.Show("糟糕,可能出错了!")
        End If
End Select

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


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

不是表单删除】这个函数自己的代码,而是httprequest调用【表单删除】这个函数的代码

 回到顶部
总数 18 1 2 下一页