在帮助文件里面关于工作流的一章,“数据的自动流转之一”,对于下面红色加粗的部分不太理解,then 后面什么代码也没有啊,问什么能阻止2A变成1B?请大家帮助,多谢了!
7、进度列的值需要根据其他列的输入进度来计算得出,为此将表的DataColChanged事件代码设置为:
Select
Case e.DataCol.Name
Case
"第一列","第二列","第三列","第四列","第五列","第六列"
Dim dr As
DataRow = e.DataRow
Dim jd As
String = "1A"
If
dr.IsNull("第一列") =
False
AndAlso dr.IsNull("第二列") = False
Then
jd = "1B"
If dr.IsNull("第三列") =
False
AndAlso dr.IsNull("第四列") = False
Then
jd = "2B"
If dr.IsNull("第五列") = False
AndAlso dr.IsNull("第六列") = False
Then
jd = "3B"
End
If
End
If
End
If
If jd = "1B"
AndAlso dr("进度") = "2A"
Then
'注意这里的处理技巧,意思是2A不能回到1B,3A不能回到2B
ElseIf jd = "2B"
AndAlso dr("进度") = "3A"
Then
Else
dr("进度") = jd
End
If
End
Select