- 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=39589)
-- 发布时间：2013/8/27 20:06:00
-- [求助]如何实现成绩自动输入
各位老大：请教一下，在不新增表的条件下，如何实现输入学生姓名、科目后，自动输入成绩？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:成绩自动输入sc.table |
-- 发布时间：2013/8/27 20:09:00
--
亲，学生的成绩来自哪里？
-- 发布时间：2013/8/27 20:10:00
--
你的问题，可以参考跨表引用。
-- 发布时间：2013/8/27 20:11:00
--
成绩在代码中输入
-- 发布时间：2013/8/27 20:21:00
--
有点甜老师：你好！我的意思是不从其他表引用，例如，张三的语文、数学、英语、理综成绩分别为95、110、125、250分，李四的语文、数学、英语、理综成绩分别为125、100、95、200分，当录入姓名和科目后，自动输入成绩，成绩直接写在代码中。
-- 发布时间：2013/8/27 20:27:00
--
好象是这样的
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:成绩自动输入sc.table |
-- 发布时间：2013/8/27 21:50:00
--
不知道楼主这样做的意义。代码写在datacolchanged事件里。
Select Case e.DataCol.Name
Case "姓名", "科目"
If e.DataRow("姓名") = "张三" AndAlso e.DataRow("科目") = "语文" Then
e.DataRow("成绩") = 95
ElseIf e.DataRow("姓名") = "张三" AndAlso e.DataRow("科目") = "数学" Then
e.DataRow("成绩") = 100
End If
End Select