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

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

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

苏州老街

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

加好友

发短信

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

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

Post By：2017/4/11 22:15:00 [显示全部帖子]

老师，出库明细表报错

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

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

苏州老街

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

加好友

发短信

等级：三尾狐帖子：711 积分：4542 威望：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

苏州老街

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

加好友

发短信

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

Post By：2017/4/12 11:27:00 [显示全部帖子]

老师，找不出原因。

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

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

苏州老街

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

加好友

发短信

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

Post By：2017/4/12 12:16:00 [显示全部帖子]

谢谢老师，修改了。

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

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