以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]代码修改  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=69838)
--  作者：monvzhilei
--  发布时间：2015/6/11 16:44:00
--  [求助]代码修改

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

 

  代码如下

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

 

   我这个代码  运行起来 出错。 到底在哪儿有问题，特请教。
--  作者：大红袍
--  发布时间：2015/6/11 16:48:00
--  
If Tables("学院").Current IsNot Nothing Then
    Dim dr1 As Row = Tables("学院").Current
    Dim s As String = DataTables("主表").GetComboListString("班级名称","[所在学院] = \'英语学院\'")
    dr1("班级名称") = s  \'写入学院表里面的班级名称列里
End If
--  作者：monvzhilei
--  发布时间：2015/6/11 16:52:00
--  

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

 

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


--  作者：monvzhilei
--  发布时间：2015/6/11 16:54:00
--  

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

 

 如果直接这样写。 那无法运行。真是晕了。
--  作者：大红袍
--  发布时间：2015/6/11 16:54:00
--  
Dim nr As Row = Tables("学院").AddNew
Dim s As String = DataTables("主表").GetComboListString("班级名称","[所在学院] = \'英语学院\'")
nr("班级名称") = s  \'写入学院表里面的班级名称列里
--  作者：monvzhilei
--  发布时间：2015/6/11 16:56:00
--  

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

  那么。我的代码估计还是需要加上 回车符之类的。
--  作者：大红袍
--  发布时间：2015/6/11 16:57:00
--  

For Each bj As String In DataTables("主表").GetValues("班级名称","[所在学院] = \'英语学院\'")
    Dim nr As Row = Tables("学院").AddNew
    nr("班级名称") = bj  \'写入学院表里面的班级名称列里
Next
--  作者：monvzhilei
--  发布时间：2015/6/11 16:59:00
--  
我只能说，你已经登峰造极了。   我还没有入门。  谢谢大红包