求助:同样的文件来源列发生变动后进行其他值得自动生成居然 不能生成流水线号 求纠正!
If e.DataCol.Name = "文件来源" Then
Dim bh As String = "瓮检" & e.DataRow("文件来源").Substring(0,2) & e.DataRow("文件来源").Substring(4,1) &"〔" & Format(Date.Today,"yyyy") & "〕"
Dim ht As String = e.DataRow("文件来源").Substring(0,6) & "处理签"
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(流水线号)","流水线号 Like '" & bh & "*'" )
If max > "" Then '如果存在最大编号
idx = CInt(max.Substring(11,3)) + 1 '获得最大编号的后三位顺序号,并加1
Else
idx = 1 '否则顺序号等于1
End If
e.DataRow("流水线号") = bh & Format(idx,"000") & "号"
e.DataRow("流水日期") =Date.today
e.DataRow("经办人名") =User.Name
'e.DataRow("文件函头") = ht
End If
此主题相关图片如下:3.jpg
[此贴子已经被作者于2014-12-5 19:37:46编辑过]