Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]错误代码


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

主题：[求助]错误代码
帅哥哟，离线，有人找我吗？
风声
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1014 积分：6757 威望：0 精华：0 注册：2014/2/12 20:14:00 		[求助]错误代码  发帖心情 Post By：2014/6/11 15:15:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：错误代码.png
图片点击可在新窗口打开查看老师我在设置编号保存时出现的。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/6/11 15:17:00 [只看该作者]

 Select Case e.DataCol.Name

     Case "入库单编号"

 

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


加好友 发短信
等级：五尾狐 帖子：1014 积分：6757 威望：0 精华：0 注册：2014/2/12 20:14:00 		  发帖心情 Post By：2014/6/11 15:36:00 [只看该作者]

 

Select Case e.DataCol.Name

     Case "入库单编号"

 

 End Select

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

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

        Else

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

            If e.DataRow("入库单编号明细").StartsWith(bh) = False  '如果入库单编号明细前缀不符

                Dim max  As  String

                Dim idx  As  Integer

                Dim count As Integer = e.DataTable.Compute("Count(_Identify)","入库单编号 = '" & bh  & "' And [_Identify] <> " & e.DataRow("_Identify"))

                If count > 0 Then

                   

                    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

            End  If

        End If


图片点击可在新窗口打开查看此主题相关图片如下：编号明细.png
图片点击可在新窗口打开查看

入库单编号明细列的第一行没有自动添加编号
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/6/11 15:59:00 [只看该作者]

 你必须删除重新输入入库单号，才会编号的。

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


加好友 发短信
等级：五尾狐 帖子：1014 积分：6757 威望：0 精华：0 注册：2014/2/12 20:14:00 		  发帖心情 Post By：2014/6/11 16:28:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:蓝峰管理.table

l老师，不行阿。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/6/11 16:41:00 [只看该作者]

 可以啊，如果要方便，就重置列：选中入库单编号，重置

 

 http://www.foxtable.com/help/topics/1469.htm

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


加好友 发短信
等级：版主 帖子：1693 积分：12123 威望：0 精华：7 注册：2013/7/11 10:52:00 		  发帖心情 Post By：2014/6/11 17:11:00 [只看该作者]

以下是引用风声在2014-6-11 15:36:00的发言：
 

Select Case e.DataCol.Name

     Case "入库单编号"

 

 End Select

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

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

        Else

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

            If e.DataRow("入库单编号明细").StartsWith(bh) = False  '如果入库单编号明细前缀不符

                Dim max  As  String

                Dim idx  As  Integer

                Dim count As Integer = e.DataTable.Compute("Count(_Identify)","入库单编号 = '" & bh  & "' And [_Identify] <> " & e.DataRow("_Identify"))

                If count > 0 Then

                   

                    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

            End  If

        End If


图片点击可在新窗口打开查看此主题相关图片如下：编号明细.png
图片点击可在新窗口打开查看

入库单编号明细列的第一行没有自动添加编号

兄弟，你的Select Case 的语句有点奇怪，早早的End 了，是否应该放到下面来。
 回到顶部
帅哥哟，离线，有人找我吗？
风声
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1014 积分：6757 威望：0 精华：0 注册：2014/2/12 20:14:00 		  发帖心情 Post By：2014/6/11 18:21:00 [只看该作者]

老师帮我改一下吧，谢谢了。

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/6/11 19:03:00 [只看该作者]

 看6楼，然后改成这样

 

Select Case e.DataCol.Name
   
    Case "入库单编号"
       
        If e.DataRow.IsNull("入库单编号") Then
           
            e.DataRow("入库单编号明细") = Nothing
           
        Else
           
            Dim bh As  String = e.DataRow("入库单编号")
           
            If e.DataRow("入库单编号明细").StartsWith(bh) = False  '如果入库单编号明细前缀不符
               
                Dim max  As  String
               
                Dim idx  As  Integer
               
                Dim count As Integer = e.DataTable.Compute("Count(_Identify)","入库单编号 = '" & bh  & "' And [_Identify] <> " & e.DataRow("_Identify"))
               
                If count > 0 Then
                   
                   
                   
                    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
               
            End  If
           
        End If
       
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
风声
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1014 积分：6757 威望：0 精华：0 注册：2014/2/12 20:14:00 		  发帖心情 Post By：2014/6/11 19:37:00 [只看该作者]

图片点击可在新窗口打开查看还是这个问题

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