（1）datacolchanged下，代码如下：
If e.DataCol.Name = "凭证流水号" Then
Dim s As String = e.DataRow("凭证流水号")
If s.length > 9 Then
e.DataRow("凭证期间") = s.SubString(3,6)
Else
e.DataRow("凭证期间") = Nothing
End If
End If
If e.DataCol.Name = "凭证流水号" Then
Dim s As String = e.DataRow("凭证流水号")
If s.length > 13 Then
e.DataRow("凭证号") = s.SubString(9,4)
Else
e.DataRow("凭证号") = Nothing
End If
End If
结果如下：凭证期间可以按照凭证流水号取数，凭证号列为空。（凭证流水号如：PZ-201501010001，期望结果 凭证期间：201501 凭证号：0001）
加好友 
发短信
Post By：2015/3/29 10:40:00 [显示全部帖子]
