不想被别人说成只想等现成的源程序行。放出我自己写的程序行。请根据我写的帮我解决我的问题吧。在线等。' If rs2.Fields(14).Value = "禁止卡" Then ' MsgBox "不得将禁止卡加入卡组!", 64, "提示" ' Exit Sub ' ElseIf rs2.Fields(14).Value = "限制卡" Then ' zjx(0) = zjx(0) + rs2.Fields(0).Value ' If zjx(0) >= rs2.Fields(0).Value * 2 Then ' MsgBox "同一张限制卡只允许有一张!", 64, "提示" ' Exit Sub ' End If ' ElseIf rs2.Fields(14).Value = "准限制卡" Then ' zjx(1) = zjx(1) + rs2.Fields(0).Value ' If zjx(1) >= rs2.Fields(0).Value * 3 Then ' MsgBox "同一张限制卡只允许有两张!", 64, "提示" ' Exit Sub ' End If ' End If
' MsgBox "不得将禁止卡加入卡组!", 64, "提示"
' Exit Sub
' ElseIf rs2.Fields(14).Value = "限制卡" Then
' zjx(0) = zjx(0) + rs2.Fields(0).Value
' If zjx(0) >= rs2.Fields(0).Value * 2 Then
' MsgBox "同一张限制卡只允许有一张!", 64, "提示"
' Exit Sub
' End If
' ElseIf rs2.Fields(14).Value = "准限制卡" Then
' zjx(1) = zjx(1) + rs2.Fields(0).Value
' If zjx(1) >= rs2.Fields(0).Value * 3 Then
' MsgBox "同一张限制卡只允许有两张!", 64, "提示"
' Exit Sub
' End If
' End If