- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助：同样的文件来源列发生变动后进行其他值得自动生成居然 不能生成流水线号 求纠正！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=61000)
-- 发布时间：2014/12/5 0:56:00
-- 求助：同样的文件来源列发生变动后进行其他值得自动生成居然 不能生成流水线号 求纠正！
求助：同样的文件来源列发生变动后进行其他值得自动生成居然 不能生成流水线号 求纠正！
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编辑过]
-- 发布时间：2014/12/5 9:09:00
--
只有文件来源列改变的时候，才会触发代码啊。你加入msgbox看看，进行什么操作的时候，是否能触发事件代码
-- 发布时间：2014/12/5 9:19:00
--
测试来源列变动的时候并无问题
-- 发布时间：2014/12/5 19:39:00
-- 回复：（有点甜） 只有文件来源列改变的时候，才...
是的 很纠结的一个问题
今天换了电脑就能够正常显示
-- 发布时间：2014/12/5 19:40:00
-- 回复：（Bin）测试来源列变动的时候并无问题
谢谢
是的 很纠结的一个问题
今天换了电脑就能够正常显示