[求助]出库明细表报错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]出库明细表报错

共有1847人关注过本帖树形打印复制链接主题：[求助]出库明细表报错

苏州老街

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：710 积分：4537 威望：0 精华：0 注册：2016/10/19 16:45:00

[求助]出库明细表报错 发帖心情

Post By：2017/4/11 22:15:00 [只看该作者]

老师，出库明细表报错

下载信息 [文件大小：下载次数： ]
点击浏览该文件:eventcode.rar

此主题相关图片如下：图像 2.png

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111410 积分：567120 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/4/11 22:25:00 [只看该作者]

提示没有“出库单编号明细”这个列，自己使用Messagebox定位是那一句代码有问题

苏州老街

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：710 积分：4537 威望：0 精华：0 注册：2016/10/19 16:45:00

Post By：2017/4/11 23:09:00 [只看该作者]

老师，我把下面代码屏蔽后就不报错了。

'Select Case e.DataCol.Name

' Case "出库单编号"

' If e.DataRow.IsNull("出库单编号") Then

' e.DataRow("出库单编号明细") = Nothing

' Else

' Dim bh As String = e.DataRow("出库单编号")

' Dim max As String

' Dim idx As Integer

' max = e.DataTable.Compute("Max(出库单编号明细)","出库单编号 = '" & bh & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大入库单编号

' If max > "" Then '如果存在最大入库单编号

' Dim l As Integer = bh.Length

' idx = CInt(max.Substring(l,3)) + 1 '获得最大入库单编号的后两位顺序号,并加1

' Else

' idx = 1 '否则顺序号等于1

'End If

'e.DataRow("出库单编号明细") = bh & Format(idx,"000")

' End If

'Case "入库批次号"

' Dim dr = DataTables("入库明细").Find("入库单编号明细 = '" & e.DataRow("入库批次号") & "'")

' If dr IsNot Nothing

' e.DataRow("入库价") = dr("入库_单价")

' End If

'End Select

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111410 积分：567120 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/4/11 23:19:00 [只看该作者]

要么当前表没有这个列，要么入库明细没有这个列。用Messagebox定位到具体哪一行代码的问题

苏州老街

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：710 积分：4537 威望：0 精华：0 注册：2016/10/19 16:45:00

Post By：2017/4/12 11:27:00 [只看该作者]

老师，找不出原因。

此主题相关图片如下：图像 2.png

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新建文件夹.rar

有点色

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/12 11:37:00 [只看该作者]

这段代码，没有对应的列，自然会报错。

If e.DataCol.Name = "已开piao" AndAlso e.DataRow.IsNull("出库单编号明细") = False Then
    Dim dr As DataRow = DataTables("已开fa piao").Find("出库单编号明细 = '" & e.DataRow("出库单编号明细") & "'")
    If e.DataRow(e.DataCol) = True Then
        If dr Is Nothing Then
            dr = DataTables("已开fa piao").AddNew
            For Each dc As DataCol In DataTables("出库明细").DataCols
                If DataTables("已开fa piao").DataCols.Contains(dc.Name) Then
                    dr(dc.Name) = e.DataRow(dc.Name)
                End If
            Next
        End If
    Else
        If dr IsNot Nothing Then
            dr.Delete
        End If
    End If
End If

苏州老街

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：710 积分：4537 威望：0 精华：0 注册：2016/10/19 16:45:00

Post By：2017/4/12 12:16:00 [只看该作者]

谢谢老师，修改了。

下一主题 >> << 上一主题

主题：[求助]出库明细表报错