- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 遍历 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=172276)
-- 发布时间：2021/10/5 18:04:00
-- 遍历
If e.DataCol.Name = "单号" Then
Dim dr As DataRow
dr = e.DataTable.Find("单号 = \'" & e.NewValue & "\'")
If dr IsNot Nothing Then
For i As Integer =1 To 1000
e.DataRow("状态") = i
Next
End If
End If
-- 发布时间：2021/10/5 18:04:00
--
老师我想问一下判断单号一样，从0开始，如果单号一样的话就i+1
-- 发布时间：2021/10/7 9:02:00
--
If e.DataCol.Name = "单号" Then
Dim dr As DataRow
dr = e.DataTable.Find("单号 = \'" & e.NewValue & "\' and _Identify <>" & e.DataRow("_Identify"),"单号 desc")
If dr Is Nothing Then
e.DataRow("状态") = 0
else
e.DataRow("状态") = dr("单号") + 1 End If
End If
-- 发布时间：2021/10/7 10:15:00
--
变成800了
此主题相关图片如下：wechat 圖片_20211007101418.png
-- 发布时间：2021/10/7 10:29:00
--
状态列改为整数列
If e.DataCol.Name = "单号" Then
Dim dr As DataRow
dr = e.DataTable.Find("单号 = \'" & e.NewValue & "\' and _Identify <>" & e.DataRow("_Identify"),"状态 desc")
If dr Is Nothing Then
e.DataRow("状态") = 0
else
e.DataRow("状态") = dr("状态") + 1 End If
End If
-- 发布时间：2021/10/7 10:29:00
--
11
[此贴子已经被作者于2021/10/7 10:30:06编辑过]
-- 发布时间：2021/10/7 10:31:00
--
请上传实例说明
-- 发布时间：2021/10/13 15:42:00
--
那老师如果我是第一个是补单1，一次当下呢
-- 发布时间：2021/10/13 15:43:00
--
就是没有重复的时候的补单1，重复了就补单+1
-- 发布时间：2021/10/13 16:24:00
--
e.DataRow("状态") = 0
改为
e.DataRow("状态") = 1