主题：窗口中的表问题

前面大师教我用表控件来记录多行数据，

此主题相关图片如下：qq图片20151229105415.png

我想在这个窗口的"订单确认"按钮事件中加一段代码

单击后

 

在“价格表”中“库存”列下的数据 减去 窗口表空间中 同一品名后面的数量

直接在跨表引用我到时会，怎么引用这个表控件中的数据呢？？

还有 这个表控件中的 列属性怎么调整？ 比如 单价和 总价  固定2位小数 显示货币符号

1、看看

 

http://www.foxtable.com/help/topics/1907.htm

 

2、看看

 

http://www.foxtable.com/help/topics/1356.htm

 

Dim dr  As  DataRow

dr = DataTables("点单_Table1")

Dim db  As  DataRow
        db =  DataTables("价格表").Find("品名 = '" & dr("品名") & "'")
If db IsNot Nothing Then

db("库存") = db("库存") - dr（"数量"）

end if

 

 

这样？

不是也有datacolchanged事件么？直接抄原来的代码，如

 

Dim dr  As  DataRow

dr = e.DataRow

Dim db  As  DataRow
db =  DataTables("价格表").Find("品名 = '" & dr("品名") & "'")
If db IsNot Nothing Then
    db("库存") = db("库存") - dr("数量")
End If

哦。。。。在表控件里编代码啊  。。。我怎么没想到。

 

Dim dr1  As  DataRow
dr1 = e.DataRow
Dim db  As  DataRow
db =  DataTables("价格表").Find("品名 = '" & dr1("品名") & "'")
If db IsNot Nothing Then
    db("库存") = db("库存") - dr1("数量")
End If

执行以后 每次库存减少的数字  是数量的1倍  这是哪里出错了？

如  数量是11  确认订单后  库存减少22

1、你试试不写代码，然后确认，库存是否减少；

 

2、肯定是执行了两次代码才会减少两倍的。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:酒吧点单系统.foxdb

没有重复的代码啊  我上传例子 您看一下

 

删掉代码  库存不减少