Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共12 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

标题:上传单号新增

1楼
nuoyan89 发表于: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楼
有点蓝 发表于:2024/6/18 20:18:00
没看懂想表达的什么。什么地方有问题?
3楼
nuoyan89 发表于:2024/6/18 20:43:00
我点击新增多行,上传单号这里应该按递增方式递增,如图2


图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看
4楼
有点蓝 发表于:2024/6/18 22:01:00
这些单号和"上传日期"有关系吗?如果有,新增的时候必须给日期列赋值
5楼
nuoyan89 发表于:2024/6/19 8:46:00
有关系,也是赋值了的,只是取的是当年当月,前面ZK是不变的,后面是三位阿拉伯数字,我想点击新增多行时,上传单号后面的阿拉伯数字为递增的形式递增。目前这个阿拉伯数字点击新增多行时不变
6楼
有点蓝 发表于:2024/6/19 8:49:00
新增多行代码发上来
7楼
nuoyan89 发表于:2024/6/19 11:18:00
        Syscmd.Row.AddNews()
8楼
有点蓝 发表于:2024/6/19 11:34:00
没有给 "上传日期" 赋值呀。
9楼
nuoyan89 发表于:2024/6/19 13:41:00
在表事件中,上传日期等于当前系统日期
10楼
有点蓝 发表于:2024/6/19 13:52:00
什么事件?什么代码?能不能主动一点把前前后后的东西都发一下,每次推一把才走一步
共12 条记录, 每页显示 10 条, 页签: [1] [2]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 2 queries.