Foxtable(狐表)用户栏目专家坐堂 → [求助]编译错误问题


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

主题:[求助]编译错误问题

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


加好友 发短信
等级:幼狐 帖子:97 积分:870 威望:0 精华:0 注册:2016/9/27 14:05:00
[求助]编译错误问题  发帖心情 Post By:2020/4/12 0:56:00 [只看该作者]

Select Case e.DataCol.Name
    Case "子项物料代码","总库存","毛需求"
        Dim dr As DataRow
        Dim mr As DataRow = e.DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [子项物料代码] = '" & mr("子项物料代码") & "'", "[_SortKey] Desc")
        If dr Is Nothing Then
            mr("总欠料") = mr("总库存") - mr("毛需求")
            dr = mr
        End If
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [子项物料代码] = '" & dr("子项物料代码") & "'", "[_SortKey]")
        For i As Integer = 1 To drs.Count - 1
            drs(i)("总欠料") = drs(i-1)("总欠料") - drs(i)("毛需求")
        Next
        If e.DataCol.Name = "子项物料代码" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
            dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [子项物料代码] = '" & e.OldValue & "'", "[_SortKey] Desc")
            If dr Is Nothing Then
                dr = e.DataTable.Find("[子项物料代码] = '" & e.OldValue & "'", "[_SortKey]")
                If dr IsNot Nothing Then
                    dr("总欠料") = dr("总库存") - dr("毛需求")
                End If
            End If
            If dr IsNot Nothing Then
                drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [子项物料代码] = '" & dr("子项物料代码") & "'", "[_SortKey]")
                For i As Integer = 1 To drs.Count - 1
                    drs(i)("总欠料") = drs(i-1)("总欠料")  - drs(i)("毛需求")
                Next
            End If
        End If
End Select


图片点击可在新窗口打开查看此主题相关图片如下:c2b192ae-8fe0-4a93-83d6-3fb60bd0897b.png
图片点击可在新窗口打开查看




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


加好友 发短信
等级:九尾狐 帖子:2177 积分:13784 威望:0 精华:2 注册:2012/2/25 10:59:00
  发帖心情 Post By:2020/4/12 1:55:00 [只看该作者]

初学者常犯的错误,你这代码写在哪个事件里?这个事件没有e参数

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


加好友 发短信
等级:五尾狐 帖子:1021 积分:12740 威望:0 精华:0 注册:2011/5/29 15:19:00
偶发性出现,一般会在同时编辑多个项目时。  发帖心情 Post By:2020/4/12 9:14:00 [只看该作者]

如题,重启项目,删除bin文件夹,试试


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


加好友 发短信
等级:幼狐 帖子:97 积分:870 威望:0 精华:0 注册:2016/9/27 14:05:00
  发帖心情 Post By:2020/4/12 10:58:00 [只看该作者]

http://www.foxtable.com/webhelp/index.htm?page=2136.htm

我是按照这个例子改写的,都是按上面做的,只是改了字段,是因为我这个表是查询表的原因吗?


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


加好友 发短信
等级:幼狐 帖子:97 积分:870 威望:0 精华:0 注册:2016/9/27 14:05:00
  发帖心情 Post By:2020/4/12 11:01:00 [只看该作者]

没有什么改善

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/12 21:54:00 [只看该作者]

确定代码是放在表格DataColChanged事件的?上传实例看看

 回到顶部