主题：条件赋值

比如，窗口中有编号和类型两个文本框，我想当编号为4个数字时，类型填充为社会团体，当编号为3个数字时，类型填充为基金会，请教专家代码怎样编写

If e.DataCol.Name = "编号" Then
   If e.DataCol("编号").IsString  And String.Length=4 Then
   e.DataRow.Name("类型") = "社会团体"
   End If
End If

 

上面这个代码请高人指教

If e.DataCol.Name = "编号" Then

    Dim s As String = e.DataRow("编号")

    if s.Length = 3 then

       e.DataRow("类型") = “基金会”

    ElseIf s.Length = 4 then

        e.DataRow("类型") = "社会团体"

    Else

       e.DataRow("类型") = Nothing

    End if
End If

此主题相关图片如下：qq截图20120322171459.jpg

If e.DataCol.Name = "编号" Then
    Dim s As String = e.DataRow("编号")
    s = s.TrimStart("0")
    If s.Length Then
        e.DataRow("类型") = "基金会"
    ElseIf s.Length = 4 Then
        e.DataRow("类型") = "社会团体"
    Else
        e.DataRow("类型") = Nothing
    End If
End If