我想实现一个求得分的功能，具体情况见我的附件，因为尝试了好几次都没有成功，所以只能麻烦大家了，谢谢！

梦沉子墨　发表于：2016-03-22 22:27:32 　

复制

点击下载此附件

Top

缪炜发表于：2016-03-23 10:44:19

点击附件下载 这样？

Top

梦沉子墨发表于：2016-03-23 11:15:00

非常感谢！

Top

凌云发表于：2016-03-23 13:40:03

Private Sub Command1_Click()
On Error Resume Next
Me.Text38 = ""
If Me.Combo31.Value = "? ?" Or Me.Combo34.Value = "? ?" Then
Me.Text38 = 100
ElseIf Me.Combo31.Value = "NO" And Me.Combo34.Value = "NO" Then
If Text37 >= 100 Then
Me.Text38 = 3
Else
Me.Text38 = 4
End If
ElseIf Me.Combo31.Value <> "? ?" And Me.Combo34.Value <> "? ?" And Me.Combo31.Value <> "NO" And Me.Combo34.Value <> "NO" Then
If Me.Text37 > 100 Then
Me.Text38 = 1
Else
Me.Text38 = 2
End If
End If
End Sub

Top

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

Access交流中心

我想实现一个求得分的功能，具体情况见我的附件，因为尝试了好几次都没有成功，所以只能麻烦大家了，谢谢！