Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表事件同时放两组代码就弹窗错误提示


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

主题：表事件同时放两组代码就弹窗错误提示
帅哥哟，离线，有人找我吗？
denghui69986
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：431 积分：2776 威望：0 精华：0 注册：2022/3/25 7:44:00 		表事件同时放两组代码就弹窗错误提示  发帖心情 Post By：2024/1/30 8:16:00 [只看该作者]

表事件DataCoIChnged代码,输入数据就弹窗，老师帮忙看看那里错了，谢谢！！
图片点击可在新窗口打开查看此主题相关图片如下：错误代码截图.png
图片点击可在新窗口打开查看

里面放了两组代码，放一组没事，
'下面代码是用于自动编号
Select e.DataCol.Name
    Case "生产日期", "单据代码"
        If e.DataRow.IsNull("生产日期") OrElse e.DataRow.IsNull("单据代码") Then
            e.DataRow("单据编码") = Nothing
        Else
            Dim d As Date = e.DataRow("生产日期")
            Dim y As Integer = d.Year
            Dim m As Integer = d.Month
            Dim Days As Integer = Date.DaysInMonth(y, m)
            Dim fd As Date = New Date(y, m, 1) '获得该月的第一天
            Dim ld As Date = New Date(y, m, Days) '获得该月的最后一天
            Dim bh As String = e.DataRow("单据代码") & "-" & Format(d, "yyyyMM") & "" '生成编号的前缀
            If e.DataRow("单据编码").StartsWith(bh) = False Then'如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                Dim flt As String
                flt = "单据代码 = '" & e.DataRow("单据代码") & "' And 生产日期 >= #" & fd & "# And 生产日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")
                max = e.DataTable.Compute("Max(单据编码)", flt) '取得该月的相同工程代码的最大单据编号
                If max > "" Then '如果存在最大单据编号
                    idx = CInt(max.Substring(max.length - 3)) + 1 '获得最大单据编号的后四位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("单据编码") = bh & Format(idx, "0000")
            End If
        End If
End Select


'下面代码是用于自动填充
If e.DataCol.Name = "批号" Then
     If e.NewValue Is Nothing Then
         e.DataRow("品名") = Nothing
         e.DataRow("型号") = Nothing
         e.DataRow("规格") = Nothing
         e.DataRow("单价") = Nothing
     Else
          Dim dr As DataRow
         dr = DataTables("订单总表").Find("[批号]= '" & e.NewValue & "'")
         If dr IsNot Nothing Then 
             e.DataRow("品名") = dr("品名")
             e.DataRow("型号") = dr("型号")
             e.DataRow("规格") = dr("规格")
             e.DataRow("单价") = dr("单价") 
         End If
     End If
End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106151 积分：539872 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/1/30 8:40:00 [只看该作者]

看不出有什么问题。把代码都注释掉测试有没有问题？

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


加好友 发短信
等级：一尾狐 帖子：431 积分：2776 威望：0 精华：0 注册：2022/3/25 7:44:00 		  发帖心情 Post By：2024/1/30 8:45:00 [只看该作者]

一组代码没问题就两组代码就弹窗，

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


加好友 发短信
等级：超级版主 帖子：106151 积分：539872 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/1/30 8:49:00 [只看该作者]

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看哪一句代码出错

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


加好友 发短信
等级：一尾狐 帖子：431 积分：2776 威望：0 精华：0 注册：2022/3/25 7:44:00 		  发帖心情 Post By：2024/1/30 8:53:00 [只看该作者]

弹窗这样的
图片点击可在新窗口打开查看此主题相关图片如下：错误代码截图.png
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106151 积分：539872 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/1/30 8:55:00 [只看该作者]

执行哪一句代码之后出错？

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


加好友 发短信
等级：狐精 帖子：3052 积分：20419 威望：0 精华：0 注册：2016/3/28 16:57:00 		  发帖心情 Post By：2024/1/30 9:12:00 [只看该作者]

做个示例发出来看看

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


加好友 发短信
等级：一尾狐 帖子：431 积分：2776 威望：0 精华：0 注册：2022/3/25 7:44:00 		  发帖心情 Post By：2024/1/30 10:54:00 [只看该作者]

可以了测试，取消所有关联又不弹窗，谢谢

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询