标题：请教代码错误原因

1楼

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

2楼

狐狸爸爸 发表于：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

3楼

20090530 发表于：2011/10/9 22:13:00

谢谢！！！

共3 条记录, 每页显示 10 条, 页签: [1]