[浏览完整版]
标题：上传单号新增
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什么事件？什么代码？能不能主动一点把前前后后的东西都发一下，每次推一把才走一步