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 If s.length > 11 Then e.DataRow("凭证号") = s.SubString(11) Else e.DataRow("凭证号") = Nothing End If End If
加好友 
发短信
Post By：2015/3/29 10:56:00 [显示全部帖子]
