以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教代码错误原因  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=13365)
--  作者：20090530
--  发布时间：2011/10/9 22:03:00
--  请教代码错误原因

请教下列代码的错误：

 

If e.DataCol.Name ="培训类别"  Then
   Dim dr As DataRow=e.DataRow
   dr("培训类别1")= dr("培训类别").Substring(1,2) & "@" & dr("培训类别").Substring(3)
   End If
--  作者：狐狸爸爸
--  发布时间：2011/10/9 22:09:00
--  

培训类别如果没有内容呢，如果有内容但是长度不够呢，这些都是编码必须考虑的。

 

If e.DataCol.Name ="培训类别"  Then
    Dim dr As DataRow=e.DataRow
    If dr.Isnull("培训类别") Then
        dr("培训类别1") = Nothing
    ElseIf dr("培训类别").Length >=3 Then
        dr("培训类别1")= dr("培训类别").Substring(1,2) & "@" & dr("培训类别").Substring(3)
    End If
End If
--  作者：20090530
--  发布时间：2011/10/9 22:13:00
--  
谢谢！！！