以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  这种“出错”提示是什么意思？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=6775)
--  作者：xl
--  发布时间：2010/4/24 11:33:00
--  这种“出错”提示是什么意思？
代码：
 

For Each dr As Datarow In DataTables("优生统计").DataRows

    Dim dr1 As DataRow = DataTables("教师安排").Find("[班级] = " & dr1("班级"))

    If dr1 IsNot Nothing Then

        dr("总分_班主任")= dr1("总分")

        dr("语文_教师")= dr1("语文")

        dr("数学_教师")= dr1("数学")

        dr("英语_教师")= dr1("英语")

        dr("物理_教师")= dr1("物理")

        dr("化学_教师")= dr1("化学")

        dr("生物_教师")= dr1("生物")

    End If

next


执行后，提示如下：

图片点击可在新窗口打开查看此主题相关图片如下：335.bmp
图片点击可在新窗口打开查看
[此贴子已经被作者于2010-4-24 11:35:05编辑过]
--  作者：lxl
--  发布时间：2010/4/24 11:38:00
--  
Dim dr1 As DataRow = DataTables("教师安排").Find("[班级] = " & dr1("班级"))

这里应该是dr("班级"))吧
--  作者：xl
--  发布时间：2010/4/24 11:45:00
--  

呵呵，粗心了