主题：求助：同样的文件来源列发生变动后进行其他值得自动生成居然 不能生成流水线号 求纠正！

求助：同样的文件来源列发生变动后进行其他值得自动生成居然 不能生成流水线号 求纠正！

 

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

 只有文件来源列改变的时候，才会触发代码啊。你加入msgbox看看，进行什么操作的时候，是否能触发事件代码

测试来源列变动的时候并无问题

是的 很纠结的一个问题

今天换了电脑就能够正常显示 

谢谢

是的 很纠结的一个问题

今天换了电脑就能够正常显示