- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 后台数据更新异常 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186555)
-- 发布时间：2023/5/12 8:16:00
-- 后台数据更新异常
老师，我系统做了登陆不加载表，使用哪个加载对应的表后，以下红色的代码没有起到作用（调整登录方式前是正常的），请帮忙看看，谢谢
If DataTables.Contains("库存明细记录") = False Then
DataTables.Load("库存明细记录")
End If
For Each dr3 As Row In Tables("修磨申请_申请下达").Rows
Dim drs As List(of DataRow) = DataTables("库存明细记录").SQLSelect("刀具代码 = \'" & dr3("刀具代码") & "\' And 单刀编码= \'" & dr3("单刀编码") & "\' And 材料编码 = \'" & dr3("材料编码") & "\'")
For Each dr As DataRow In drs
dr("目前状态") = "申请修磨"
dr("库位") = "修磨仓库"
dr("当前刃长") = dr3("出厂刃长")
Next
DataTables("库存明细记录").SQLUpdate(drs)
Next
DataTables("库存明细记录").load
DataTables("修磨申请_申请下达").deleteFor("材料编码 Is null")
DataTables("修磨申请_申请下达").Save()
DataTables("修磨申请_申请下达").RemoveFor("")
DataTables("修磨申请_过程审核").deleteFor("审核单据编码 Is null or 审核人员 Is null")
DataTables("修磨申请_过程审核").Save()
DataTables("修磨申请_过程审核").RemoveFor("")
e.form.Close
-- 发布时间：2023/5/12 8:40:00
--
For Each dr As DataRow In drs
dr("目前状态") = "申请修磨"
dr("库位") = "修磨仓库"
dr("当前刃长") = dr3("出厂刃长")
dr.save
Next
-- 发布时间：2023/5/12 8:49:00
--
学会调试
If DataTables.Contains("库存明细记录") = False Then
DataTables.Load("库存明细记录")
End If
msgbox(DataTables.Contains("库存明细记录"))
msgbox(Tables("修磨申请_申请下达").Rows.count)
For Each dr3 As Row In Tables("修磨申请_申请下达").Rows
Dim drs As List(of DataRow) = DataTables("库存明细记录").SQLSelect("刀具代码 = \'" & dr3("刀具代码") & "\' And 单刀编码= \'" & dr3("单刀编码") & "\' And 材料编码 = \'" & dr3("材料编码") & "\'")
msgbox(drs .count)
For Each dr As DataRow In drs
……
-- 发布时间：2023/5/12 9:03:00
--
调试如下，但是结果还是没有变动，如图2
此主题相关图片如下：1.jpg
此主题相关图片如下：2.jpg
-- 发布时间：2023/5/12 9:05:00
--
3个提示框分别弹出什么内容？
-- 发布时间：2023/5/12 9:23:00
--
就只弹出了一个提示框，如4楼的图1，另外两个没有弹出来
-- 发布时间：2023/5/12 9:43:00
--
不可能的。说明1楼这些代码都没有执行到
[此贴子已经被作者于2023/5/12 9:43:14编辑过]
-- 发布时间：2023/5/12 9:49:00
--
那我现在能怎么调整呢？
-- 发布时间：2023/5/12 9:53:00
--
不会调试就上传实例
-- 发布时间：2023/5/12 9:54:00
--
现在问题确实是出在登录不加载表的情况下就有这种情况，我找到之前没有设置登录不加载的那个系统，能正常把目前状态、库位变回来