[浏览完整版]
标题：删除数据‘求助
1楼
shunchang 发表于：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楼
有点蓝 发表于：2023/11/6 21:01:00后的测试的时候Output.Show显示了哪个内容？
3楼
shunchang 发表于：2023/11/6 21:09:00前后端都没有任何显示
后端怎么获取前端数据 获取到后怎么判断数据类型
[此贴子已经被作者于2023/11/6 21:10:48编辑过]
4楼
有点蓝 发表于：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 ,
……
5楼
shunchang 发表于：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楼
有点蓝 发表于：2023/11/6 22:19:00贴出函数完整代码
贴出外部调用这个函数的完整代码
7楼
shunchang 发表于：2023/11/6 22:51:00太多 打包
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:前后端代码.txt |
8楼
有点蓝 发表于：2023/11/6 22:56:00贴出httprequest调用【表单删除】这个函数的完整代码
[此贴子已经被作者于2023/11/6 22:56:24编辑过]
9楼
shunchang 发表于：2023/11/6 22:59:00Dim 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楼
有点蓝 发表于：2023/11/6 23:12:00不是【表单删除】这个函数自己的代码，而是httprequest调用【表单删除】这个函数的代码