- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 窗口中的表问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79330)
-- 发布时间：2015/12/29 10:59:00
-- 窗口中的表问题
前面大师教我用表控件来记录多行数据，
此主题相关图片如下：qq图片20151229105415.png
我想在这个窗口的"订单确认"按钮事件中加一段代码
单击后
在“价格表”中“库存”列下的数据 减去 窗口表空间中 同一品名后面的数量
直接在跨表引用我到时会，怎么引用这个表控件中的数据呢？？
-- 发布时间：2015/12/29 11:02:00
--
还有 这个表控件中的 列属性怎么调整？ 比如 单价和 总价 固定2位小数 显示货币符号
-- 发布时间：2015/12/29 11:15:00
--
1、看看
http://www.foxtable.com/help/topics/1907.htm
2、看看
http://www.foxtable.com/help/topics/1356.htm
-- 发布时间：2015/12/29 11:38:00
--
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
这样？
-- 发布时间：2015/12/29 11:41:00
--
不是也有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
-- 发布时间：2015/12/29 11:46:00
--
哦。。。。在表控件里编代码啊 。。。我怎么没想到。
-- 发布时间：2015/12/29 12:38:00
--
不是也有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
-- 发布时间：2015/12/29 14:35:00
--
1、你试试不写代码，然后确认，库存是否减少；
2、肯定是执行了两次代码才会减少两倍的。
-- 发布时间：2015/12/29 14:57:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:酒吧点单系统.foxdb |
没有重复的代码啊 我上传例子 您看一下
-- 发布时间：2015/12/29 14:59:00
--
1、你试试不写代码，然后确认，库存是否减少；
2、肯定是执行了两次代码才会减少两倍的。
删掉代码 库存不减少