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


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

主题:表事件同时放两组代码就弹窗错误提示

帅哥哟,离线,有人找我吗?
denghui69986
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:505 积分:3303 威望: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


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

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

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


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

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望: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


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

弹窗这样的
图片点击可在新窗口打开查看此主题相关图片如下:错误代码截图.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


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

做个示例发出来看看

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


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

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

 回到顶部