成绩系统,求救

linqiang　发表于：2008-07-06 15:02:39 　

我的窗体中有三个框格,第一个框格用来随意输入一个身高的值,第二个框格用来随意输入一个体重的值,根据上面的表在第三个框格中要体现"得分"(50分或60分或100分),要怎么写代码,劳驾各位,

"得分"(50分或60分或100分)要这样看:打开身高表,我举第一行为例,体重<32.1为50分;32.1<=体重<=40.3为60分;40.4<=体重<=46.3为100分;46.4<=体重<=48.3为60分;体重>=48.4为50分

蒋元根发表于：2008-07-06 17:26:44

请参考上面<<中学体育与健康标准成绩系统>>我的回复.

linqiang 发表于：2008-07-06 18:00:04

你做的比较麻烦,上次的问题,已解决了,我把所有标准表和起来,写代码如下

If IsNull(Me!米50成绩) = True Then
MsgBox "请输入“50米成绩”，它不可以为空!", vbOKOnly, "输入“50米成绩”"
Me!米50成绩.SetFocus

Else
Me.米50得分 = DLookup("单项得分", "评分标准", "年级 =" & Me.年级 & " AND [性别]='" & Me.性别 & "' AND 秒50米跑标准>=" & Me.米50成绩)
End If

已经解决了,还是很感谢你,身高体重还没解决(就上面的问题)

sosopain 发表于：2008-07-06 22:07:36

看帮助文件了吗?

符鸿敏发表于：2008-07-06 22:36:35

增加了一个评分命令按钮,并将表中的字段"超重"改为"超重".窗体中的"身高"、“体重”控件设为未绑定。

在输入身高、体重数据后单击评分按钮，便可在得分文本框内得到你要的结果了。

linqiang 发表于：2008-07-07 07:54:13

为什么窗体中的"身高"、“体重”控件设为未绑定?

为什么要单击评分按钮才可得到结果?

这样不能记录到表中的,我要象表格一样记录到表中生成报表后打印

不过还是很感谢你

总记录：5篇页次：1/1 9 1 :

Access交流中心