主题：[求助]代码修改

 我想在主表里面 根据所在学院，找出不重复的班级名称，  将这个班级名称写入 学院 表 里面。

 

  代码如下

    Dim dr1 As DataRow = Tables("学院").Current.DataRow 
    Dim s As String = DataTables("主表").GetComboListString("班级名称","[所在学院] = '英语学院'")
         dr1("班级名称") = s  '写入学院表里面的班级名称列里

 

   我这个代码  运行起来 出错。 到底在哪儿有问题，特请教。

If Tables("学院").Current IsNot Nothing Then
    Dim dr1 As Row = Tables("学院").Current
    Dim s As String = DataTables("主表").GetComboListString("班级名称","[所在学院] = '英语学院'")
    dr1("班级名称") = s  '写入学院表里面的班级名称列里
End If

If Tables("学院").Current IsNot Nothing Then

 

我在学院表里面。原本是没有任何值的。  如果这样写。那是写不进任何值的啊。 

    Dim dr1 As Row = Tables("学院").Current
    Dim s As String = DataTables("主表").GetComboListString("班级名称","[所在学院] = '英语学院'")
    dr1("班级名称") = s  '写入学院表里面的班级名称列里
 

 

 如果直接这样写。 那无法运行。真是晕了。

Dim nr As Row = Tables("学院").AddNew
Dim s As String = DataTables("主表").GetComboListString("班级名称","[所在学院] = '英语学院'")
nr("班级名称") = s  '写入学院表里面的班级名称列里

Dim s As String = DataTables("主表").GetComboListString("班级名称","[所在学院] = '英语学院'")
这句话产生的是 一个  文本值 。 也不对 。我有好多好多班级。需要 一行一行写入。

  那么。我的代码估计还是需要加上 回车符之类的。

For Each bj As String In DataTables("主表").GetValues("班级名称","[所在学院] = '英语学院'")
    Dim nr As Row = Tables("学院").AddNew
    nr("班级名称") = bj  '写入学院表里面的班级名称列里
Next

我只能说，你已经登峰造极了。   我还没有入门。  谢谢大红包