Dim dj As String = e.Form.controls("djtextbox").text '子单商品单价 Dim sl As String = e.Form.controls("sltextbox").text '子单商品数量 If dj = "" Or dj = "0" Then messagebox.show("请填写单价!") e.Form.controls("djtextbox").Select() Else
e.Form.controls("hjtextbox").text = Val(dj) * Val(sl) '子单商品合计 End If