If xpchykaID.Value = xcksChecked And Trim(dachykaID.Text) = "" Then
   MsgBox "请选择你的会员卡号!", vbOKOnly + vbInformation, "信息提示"
   Exit Sub
   End If
   If xpchykaID.Value = xcksChecked Then
   With myhuiyuan
   .hymoney = .infomoney(Trim(dachykaID.Text)) - CCur(Label21.Caption)
   If .hymoney < 0 Then
   MsgBox "你的余额不足!", vbOKOnly + vbInformation, "信息提示"
   Exit Sub
   End If
   .jsmoney (Trim(dachykaID.Text))
   End With
   MsgBox "结帐成功,谢谢光顾!" & "你的卡上还有" & myhuiyuan.hymoney & "元.", vbOKOnly + vbInformation, "信息提示"
   End If


运行以后，，，单击jiezhang窗体里的xpbjz按钮，说，“要求对象”

[ 本帖最后由 yyalq2009 于 2010-5-9 14:09 编辑 ]