主题：代码

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

 

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

 

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

我要把休学(入伍) 也复制到“休学”列中应该怎么办？

是想把"学籍异动"列中的‘休学’ 、‘休学(入伍）’ 这二个值复制到 “休学”列中去。解释一下，数据表中有一个“休学”列，和一个"学籍异动"列，在"学籍异动"列中有‘休学’值

Bin老师,例子已上传，请修改。可能是“（）”问题

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目21.rar

达到以下效果即可
此主题相关图片如下：目的.jpg

谢谢Bin老师！

Bin老师,以上代码还需要再进行修改，如果某一位同学退伍返回学校继续学习，就要将他的"学籍异动"内容由‘休学(入伍）’  改为  ‘复学’ ，再点击刷新数据时，在“休学”列中的‘休学(入伍’ 应该删除为空，所以还应该加上此删除功能，就完美了。先谢了！

谢谢Bin老师！