vb中的代码解决方案

vb中的代码
Private Sub Command1_Click()
If DTPicker1.Value > CDate(Text1.Text) Then
MsgBox "进货日期不能大于登记日期，请重新选择", vbOKOnly + vbExclamation, "提示"
Exit Sub
Else
If Combo1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Then ' Or Text5.Text = ""
MsgBox "请将信息填写完整！", vbOKOnly + vbExclamation, "提示"
Exit Sub
'End If
Else

Do While rs1.EOF = False 'then
If rs1.Fields(2) = Text2.Text And rs1.Fields(3) = Combo1.Text Then
MsgBox "此光盘信息已录入，是否增加！", vbOKOnly + vbExclamation, "提示"
Exit Sub
rs1.Fields(4) = rs1.Fields(4) + Val(Text3.Text)
rs1.Fields(6) = rs1.Fields(6) + Val(Text5.Text)
End If
Loop

'Else
rs1.MoveNext
rs1.AddNew
rs1.Fields(0) = DTPicker1.Value
rs1.Fields(1) = Text1.Text
rs1.Fields(2) = Text2.Text
rs1.Fields(3) = Combo1.Text
rs1.Fields(4) = Text3.Text
rs1.Fields(5) = Text4.Text
rs1.Fields(6) = Text5.Text
rs1.Update

a = MsgBox("信息添加成功")
Combo1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""

End If
End If
End Sub

谁能帮我看看这段代码哪里有问题，尤其是我设置成黑体的部分，谢谢

------解决方案--------------------
rs1.Fields(4) = rs1.Fields(4) + Val(Text3.Text)
rs1.Fields(6) = rs1.Fields(6) + Val(Text5.Text)

这两句永远不会被执行，是死代码
------解决方案--------------------
执行"Exit Sub"后，就退出Command1_Click了。
------解决方案--------------------

VB code

Private Sub Command1_Click()
If DTPicker1.Value > CDate(Text1.Text) Then
    MsgBox "进货日期不能大于登记日期，请重新选择", vbOKOnly + vbExclamation, "提示"
    Exit Sub
End If

If Combo1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Then ' Or Text5.Text = ""
    MsgBox "请将信息填写完整！", vbOKOnly + vbExclamation, "提示"
    Exit Sub
End If

Do Until rs1.EOF = False 'then
    If rs1.Fields(2) = Text2.Text And rs1.Fields(3) = Combo1.Text Then
        If MsgBox("此光盘信息已录入，是否增加？", vbOKCancel + vbExclamation, "提示") = vbOK Then
            rs1.Fields(4) = rs1.Fields(4) + Val(Text3.Text)
            rs1.Fields(6) = rs1.Fields(6) + Val(Text5.Text)
        End If
        Exit Sub
    End If
    rs1.MoveNext
Loop

rs1.AddNew
rs1.Fields(0) = DTPicker1.Value
rs1.Fields(1) = Text1.Text
rs1.Fields(2) = Text2.Text
rs1.Fields(3) = Combo1.Text
rs1.Fields(4) = Text3.Text
rs1.Fields(5) = Text4.Text
rs1.Fields(6) = Text5.Text
rs1.Update

a = MsgBox("信息添加成功")
Combo1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""

End Sub

------解决方案--------------------

探讨
rs1.Fields(4) = rs1.Fields(4) + Val(Text3.Text)
rs1.Fields(6) = rs1.Fields(6) + Val(Text5.Text)

这两句永远不会被执行，是死代码

相关推荐