Foxtable(狐表) → 用户栏目 → 专家坐堂 → 后台数据更新异常


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

主题：后台数据更新异常
美女呀，离线，留言给我吧！
nuoyan89
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：442 积分：3067 威望：0 精华：0 注册：2020/10/9 8:45:00 		后台数据更新异常  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
cd_tdh
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3106 积分：20733 威望：0 精华：0 注册：2016/3/28 16:57:00 		  发帖心情 Post By：2023/5/12 8:40:00 [只看该作者]

For Each  dr As  DataRow In drs
      dr("目前状态") = "申请修磨"
      dr("库位") = "修磨仓库"
      dr("当前刃长") = dr3("出厂刃长")
      dr.save
Next
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107730 积分：547983 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
……
 回到顶部
美女呀，离线，留言给我吧！
nuoyan89
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：442 积分：3067 威望：0 精华：0 注册：2020/10/9 8:45:00 		  发帖心情 Post By：2023/5/12 9:03:00 [只看该作者]

调试如下，但是结果还是没有变动，如图2

图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：2.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

3个提示框分别弹出什么内容？

 回到顶部
美女呀，离线，留言给我吧！
nuoyan89
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：442 积分：3067 威望：0 精华：0 注册：2020/10/9 8:45:00 		  发帖心情 Post By：2023/5/12 9:23:00 [只看该作者]

就只弹出了一个提示框，如4楼的图1，另外两个没有弹出来

 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

不可能的。说明1楼这些代码都没有执行到
[此贴子已经被作者于2023/5/12 9:43:14编辑过]
 回到顶部
美女呀，离线，留言给我吧！
nuoyan89
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：442 积分：3067 威望：0 精华：0 注册：2020/10/9 8:45:00 		  发帖心情 Post By：2023/5/12 9:49:00 [只看该作者]

那我现在能怎么调整呢？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

不会调试就上传实例

 回到顶部
美女呀，离线，留言给我吧！
nuoyan89
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：442 积分：3067 威望：0 精华：0 注册：2020/10/9 8:45:00 		  发帖心情 Post By：2023/5/12 9:54:00 [只看该作者]

现在问题确实是出在登录不加载表的情况下就有这种情况，我找到之前没有设置登录不加载的那个系统，能正常把目前状态、库位变回来

 回到顶部
总数 14 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.03906 秒, 4 次数据查询