- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 代码报错，不知原因？请专家指导 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70015)
-- 发布时间：2015/6/14 19:25:00
-- 代码报错，不知原因？请专家指导
For Each rs As Row In Tables("选课数据表").rows
Dim dr11 As DataRow = DataTables("湖北省开课总表").find("试卷号 = \'" & rs("试卷号") & "\'")
If dr11 IsNot Nothing And dr11("日期") = "*前" Then
rs("论文类安排") = "论文类安排"
End If
Next
此主题相关图片如下：qq截图20150614192716.png
-- 发布时间：2015/6/14 19:31:00
--
For Each rs As Row In Tables("选课数据表").rows
Dim dr11 As DataRow = DataTables("湖北省开课总表").find("试卷号 = \'" & rs("试卷号") & "\'")
If dr11 IsNot Nothing AndAlso dr11("日期") = "*前" Then
rs("论文类安排") = "论文类安排"
End If
Next
-- 发布时间：2015/6/14 19:53:00
--
错是没报，但没执行
我是想在国开课程总表中，如果时间类似安排成**前字样，就是要写论文了，我想在选课数据表和考试数据表上标注一下，在列“论文类安排”中写入论文类安排
实例如下：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:国家开放大学考务系统.rar |
-- 发布时间：2015/6/14 20:03:00
--
For Each rs As Row In Tables("选课数据表").rows
Dim dr11 As DataRow = DataTables("湖北省开课总表").find("试卷号 = \'" & rs("试卷号") & "\'")
If dr11 IsNot Nothing AndAlso dr11("日期") Like "*前" Then
rs("论文类安排") = "论文类安排"
End If
Next