Foxtable(狐表) → 用户栏目 → 专家坐堂 → 上传单号新增


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

主题：上传单号新增
美女呀，离线，留言给我吧！
nuoyan89
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：498 积分：3459 威望：0 精华：0 注册：2020/10/9 8:45:00 		上传单号新增  发帖心情 Post By：2024/6/18 17:54:00 [只看该作者]

老师，如图，我想点击新增一行或者新增多行后，上传单号自动递增，前提是第一个需要先查询表中的最大码，然后点击新增按照后自动按1递增。
If e.DataCol.Name = "上传日期" Then
    If e.DataRow.IsNull("上传日期") Then
        e.DataRow("上传单号") = Nothing
    Else
        e.DataRow.save
        Dim bh As String = Format(e.DataRow("上传日期"), "yyMM") ' 取得编号的8位前缀
        If e.DataRow("上传单号").StartsWith(bh) = False Then'如果编号的前8位不符
            Dim dt2 As DataTable = DataTables("发动机记录表")
            Dim max As String
            Dim idx As Integer
            max = e.DataTable.SQLCompute("Max(上传单号)", "上传单号 like '" & "ZK" & bh & "%' And [_Identify] <> " & e.DataRow("_Identify")) '取得该天的最大编号
            If max > "" Then '如果存在最大编号
                idx = CInt(max.Substring(6, 3)) + 1 '获得最大编号的后三位顺序号,并加1
            Else
                idx = 1 '否则顺序号等于1
            End If
            e.DataRow("上传单号") = "ZK" & bh & Format(idx, "000")
            e.DataRow.save
        End If
    End If
End If


图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/6/18 20:18:00 [只看该作者]

没看懂想表达的什么。什么地方有问题？

 回到顶部
美女呀，离线，留言给我吧！
nuoyan89
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：498 积分：3459 威望：0 精华：0 注册：2020/10/9 8:45:00 		  发帖心情 Post By：2024/6/18 20:43:00 [只看该作者]

我点击新增多行，上传单号这里应该按递增方式递增，如图2


图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/6/18 22:01:00 [只看该作者]

这些单号和"上传日期"有关系吗？如果有，新增的时候必须给日期列赋值

 回到顶部
美女呀，离线，留言给我吧！
nuoyan89
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：498 积分：3459 威望：0 精华：0 注册：2020/10/9 8:45:00 		  发帖心情 Post By：2024/6/19 8:46:00 [只看该作者]

有关系，也是赋值了的，只是取的是当年当月，前面ZK是不变的，后面是三位阿拉伯数字，我想点击新增多行时，上传单号后面的阿拉伯数字为递增的形式递增。目前这个阿拉伯数字点击新增多行时不变

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


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

新增多行代码发上来

 回到顶部
美女呀，离线，留言给我吧！
nuoyan89
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：498 积分：3459 威望：0 精华：0 注册：2020/10/9 8:45:00 		  发帖心情 Post By：2024/6/19 11:18:00 [只看该作者]

        Syscmd.Row.AddNews()

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


加好友 发短信
等级：超级版主 帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/6/19 11:34:00 [只看该作者]

没有给 "上传日期" 赋值呀。

 回到顶部
美女呀，离线，留言给我吧！
nuoyan89
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：498 积分：3459 威望：0 精华：0 注册：2020/10/9 8:45:00 		  发帖心情 Post By：2024/6/19 13:41:00 [只看该作者]

在表事件中，上传日期等于当前系统日期

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


加好友 发短信
等级：超级版主 帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/6/19 13:52:00 [只看该作者]

什么事件？什么代码？能不能主动一点把前前后后的东西都发一下，每次推一把才走一步

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