主题：代码

'把"学籍异动"列中的‘休学’ 、‘休学(入伍）’数据 都复制到“休学”列中

 

在数据表的学籍异动"列中有'休学' 和 '休学（入伍）' 以及'转专业'，'退学'等多种种表示，我的要求是通过以下代码将'休学' 和 '休学（入伍）'二个复制到数据表的"休学" 列中。红色代码不运行，可以把'休学'复制到"休学" 列中。但是，红色代码一参加运行，就出错。就是括号的问题，怎样将‘休学(入伍)’作为字符处理。

 

For Each r As Row In Tables("学生基本信息").Rows
   

If r("学籍异动") = "休学" Then
        r("休学") = "休学"
    Else
        r("休学") = Nothing
    End If

If r("学籍异动") = "休学(入伍)" Then      ' 红色代码参加运行就出错，怎样将‘休学(入伍)’作为字符处理，括号问题
      r("休学") = "休学(入伍)"
   Else
       r("休学(入伍)") = Nothing
   End If

Next

Dim t As Table = CurrentTable
If t.IsRelation = False
    t.DataTable.Load()
End If

 

Dim a As Table = Tables("学生基本信息")
Dim b As Table = Tables("学生基本信息")
For r As Integer = 0 To a.Rows.Count - 1

Next

此主题相关图片如下：代码错误.jpg