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


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

主题：删除数据‘求助
帅哥哟，离线，有人找我吗？
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;
 回到顶部
帅哥哟，离线，有人找我吗？
shunchang
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
shunchang
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
shunchang
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

 回到顶部
帅哥哟，离线，有人找我吗？
shunchang
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
shunchang
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：22 积分：263 威望：0 精华：0 注册：2023/10/29 14:24:00 		  发帖心情 Post By：2023/11/6 23:22:00 [显示全部帖子]

case 'del':
layer.confirm('您确定删除当前记录吗？',{icon:3,title:'确认删除'},function(index){
obj.del();
var delspecifyID = {'订货ID':obj.data.订货ID};
// var delspecifyID = '订货ID='+obj.data['订货ID'];
// var delspecifyID = {订货ID:obj.data['订货ID']};
// layer.alert(delspecifyID);
$.ajax({
data: delspecifyID,
// data: {订货ID:obj.data['订货ID']},
url:'http://192.168.110.147/gzdel.htm',
// type:'DELETE',
type:'POST',
dataType: 'json',
success:function (res){
console.log(res)
if (res.code==200){
obj.del();
layer.close(index);//关闭弹框
}
}
});
});
break;
 回到顶部
帅哥哟，离线，有人找我吗？
shunchang
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：22 积分：263 威望：0 精华：0 注册：2023/10/29 14:24:00 		  发帖心情 Post By：2023/11/6 23:23:00 [显示全部帖子]

通过ajax方式请求的

 回到顶部
帅哥哟，离线，有人找我吗？
shunchang
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：22 积分：263 威望：0 精华：0 注册：2023/10/29 14:24:00 		  发帖心情 Post By：2023/11/7 9:29:00 [显示全部帖子]

<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8">
<title></title>
</head>

<body>
<div id="test"></div>
<div class="layui-form" id="rowForm" style="width:500px;padding: 20px 20px 0 0;display: none">
<div class="layui-form-item">
<label class="layui-form-label">订货ID</label>
<div class="layui-input-inline">
<input class="layui-input" disabled="disabled" style="width: 380px;">
</div>
</div>
...
<div class="layui-form-item">
...
</div>
</div>

<script src="layui/layui.js"></script>
<script type="text/html" id="barDemo">
<div class="layui-btn-group">
<a class="layui-btn layui-btn-xs" lay-event="detail">查看</a>
<a class="layui-btn layui-btn-xs" lay-event="edit">编辑</a>
<a class="layui-btn layui-btn-xs layui-btn-danger" lay-event="del">删除</a>
</div>
</script>
<script>
// layui操作
layui.use(function(){
var layer = layui.layer
,form = layui.form
,laypage = layui.laypage
,element = layui.element
,laydate = layui.laydate
,util = layui.util
,upload = layui.upload
,$=layui.jquery;
var tb = layui.table;
tb.render({
elem: '#test',
toolbar:'#topDemo',
url: 'http://192.168.110.147/griddata',
cols: [[
{type:'checkbox'},
{type:'numbers', title: '序号',},
{field: '订货ID', title: '订货ID',sort:true, width:100},
{field: '产品大类', title: '产品大类', width:160},
{field: '外观材质', title: '外观材质', width:100},
{field: '材质备注', title: '材质备注', width:80},
{field: '产品模块', title: '产品模块', width:190},
{field: '中文名称', title: '中文名称', width:190},
{title: '操作',toolbar:'#barDemo',align:'center',width:139},
]],
page: true,    //设置分页
});
tb.on('tool', function(obj){
switch(obj.event){
case 'del':
layer.confirm('您确定删除当前记录吗？',{icon:3,title:'确认删除'},function(index){
obj.del();
var delspecifyID = {'订货ID':obj.data.订货ID};
// var delspecifyID = '订货ID='+obj.data['订货ID'];
// var delspecifyID = {订货ID:obj.data['订货ID']};
// layer.alert(delspecifyID);
$.ajax({
data: delspecifyID,
// data: {订货ID:obj.data['订货ID']},
url:'http://192.168.110.147/gzdel.htm',
// type:'DELETE',
type:'POST',
dataType: 'json',
success:function (res){
console.log(res)
if (res.code==200){
obj.del();
layer.close(index);//关闭弹框
}
}
});
});
break;
}
});
</script>
</body>
</html>
 回到顶部
帅哥哟，离线，有人找我吗？
shunchang
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：22 积分：263 威望：0 精华：0 注册：2023/10/29 14:24:00 		  发帖心情 Post By：2023/11/7 10:04: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
            Dim cnt As Integer
            '            cnt = DataTables("产品库_固装家具").SQLDeleteFor("[_Identify] = " & e.GetValues("订货ID"))
            
            DataTables("产品库_固装家具").SQLDeleteFor("订货ID =   '" & ID & "'")
            
            '            cnt = DataTables("品库_固装家具").SQLDeleteFor(("订货ID = '10003'"))
            If cnt > 0 Then
                '                sb.AppendLine("删除成功!</br></br>")
                MessageBox.Show("删除成功!")
            Else
                '                sb.AppendLine("删除失败!</br></br>")
                MessageBox.Show("删除失败!")
            End If
            '            sb.Append("<a href='list.htm?page=" & e.GetValues("page") & "'>返回列表</a>")
            '            e.WriteString(sb.ToString)
        Else
            MessageBox.Show("糟糕,可能出错了!")
            ''            e.WriteString("糟糕,可能出错了")
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
shunchang
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：22 积分：263 威望：0 精华：0 注册：2023/10/29 14:24:00 		  发帖心情 Post By：2023/11/7 10:08:00 [显示全部帖子]

后端换了一种写法：（删除成功）
需要老师指导一下，能怎么优化，返回值怎么传递？

Dim e As RequestEventArgs = args(0)
Select Case e.Path
    Case "gzdel" '删除订单
        e.Response.AddHeader("Access-Control-Allow-Origin", "*")
        e.Response.AddHeader("Access-Control-Allow-Methods", "OPTIONS,GET,POST,PUT,PATCH,DELETE")
        Dim nms() As String = {"订货ID"}
        For Each nm As String In nms
            If e.PostValues.ContainsKey(nm) = False Then
                MessageBox.Show("糟糕,可能出错了!")
                Return(0) '必须返回
            Else
                Dim ID As String = e.PostValues(nm)
                DataTables("产品库_固装家具").SQLDeleteFor("订货ID =   '" & ID & "'")
            End If
            MessageBox.Show("删除成功!")
        Next
        e.WriteString("OK") '返回增加成功消息
End Select
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.14648 秒, 6 次数据查询