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("会员价合计")
Else 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
这个代码有什么问题,为什么 在DATACOLCHANGED里面
Else 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("价格合计")
这些语句不执行