If e.DataCol.Name = "合同号" Then
If e.DataRow("合同号").Length = 13 Then
e.DataRow("合同主号") = e.DataRow("合同号").SubString(0,10)
Else e.DataRow("合同主号") = Nothing
End If
End If
以上代码运行正常，但原先我写的代码如下，运行结果不对：
If e.DataCol.Name = "合同号" andalso e.DataRow("合同号").Length = 13 Then
e.DataRow("合同主号") = e.DataRow("合同号").SubString(0,10)
Else e.DataRow("合同主号") = Nothing
End If
上面这段代码运行后，无论在合同号这个格子内输入多少字符，即使是输入13个字符，永远执行了ELSE后的代码，按理上面二段代码是一样的，不知是哪里有差异。
加好友 
发短信
Post By：2015/6/29 13:31:00 [显示全部帖子]
