Dim r As Row = CurrentTable.Current Dim v As Integer = r("消费单号") Dim dr As DataRow = DataTables("客户消费单").Find("消费单号 = " & v) If r("数量") <= r("库存数量") Then If r("会员卡号") IsNot Nothing Then r("价格合计") = r("零售单价")*r("数量") r("会员价合计") = r("会员单价")*r("数量") r("打折后合计") = r("零售单价")*r("数量")*r("折扣") Forms("销售前台").Controls("TextBox9").value = dr("价格合计") Forms("销售前台").Controls("TextBox10").value = dr("打折后合计") Forms("销售前台").Controls("TextBox16").value = dr("会员价合计") Forms("销售前台").Controls("TextBox12").value = dr("打折后合计") + dr("会员价合计") End If If r("价格合计") = r("零售单价")*r("数量") r("会员价合计") = 0 r("打折后合计") = 0 Forms("销售前台").Controls("TextBox9").value = dr("价格合计") Forms("销售前台").Controls("TextBox10").value = dr("打折后合计") Forms("销售前台").Controls("TextBox16").value = dr("会员价合计") Forms("销售前台").Controls("TextBox12").value = dr("价格合计") End If Else CurrentTable.Current.DataRow.Load(False) Messagebox.Show("该商品库存数量不足!") End If
|