窗口引用数据出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口引用数据出错

共有3700人关注过本帖树形打印复制链接主题：窗口引用数据出错

whx007

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：228 积分：2057 威望：0 精华：0 注册：2017/8/18 17:51:00

窗口引用数据出错 发帖心情

Post By：2017/10/28 17:42:00 [只看该作者]

窗口中有折扣（TextBox3）和实付现金（TextBox9）两个控件，希望输入折扣值后实付现金相应变化。

实付现金通过销售明细表的datacolchanged来获得数值，代码如下：

Dim Filter As String = "订单号 = '" & e.DataRow("订单号") & "'"

e.Form.Controls("TextBox9").Text = DataTables("销售明细表").Compute("sum(金额)",Filter) - e.Form.Controls("TextBox3").value

折扣（TextBox3）Valuechanged代码如下：

Dim Filter As String = "订单号 = '" & Tables("销售订单.销售明细表").current("订单号") & "'"

e.Form.Controls("TextBox9").value = Tables("销售订单.销售明细表").Compute("sum(金额)",Filter) -cint(e.Form.Controls("TextBox3").value)

折扣的初始值设置为0

现在问题是：例如：折扣默认值为0时实付现金值350（为当前订单的销售明细金额之和），当输入折扣值如50时，实付现金数值为显示为-50。不知道问题出在哪。请帮忙分析一下，谢谢！

[此贴子已经被作者于2017/10/28 17:58:18编辑过]

whx007

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：228 积分：2057 威望：0 精华：0 注册：2017/8/18 17:51:00

Post By：2017/10/29 15:58:00 [只看该作者]

没有人能帮忙解答一下吗

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/10/29 21:48:00 [只看该作者]

datacolchanged事件

If e.DataCol.name = "订单号" AndAlso forms("窗口1").opened Then
Dim Filter As String = "订单号 = '" & e.DataRow("订单号") & "'"
Forms("窗口1").Controls("TextBox9").Text = DataTables("销售明细表").Compute("sum(金额)",Filter) - val(Forms("窗口1").Controls("TextBox3").Text)
End If

TextChanged事件

Dim Filter As String = "订单号 = '" & Tables("销售订单.销售明细表").current("订单号") & "'"
Forms("窗口1").Controls("TextBox9").value = Tables("销售明细表").Compute("sum(金额)",Filter) - val(Forms("窗口1").Controls("TextBox3").Text)

[此贴子已经被作者于2017/10/29 21:48:31编辑过]

whx007

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：228 积分：2057 威望：0 精华：0 注册：2017/8/18 17:51:00

Post By：2017/10/30 4:52:00 [只看该作者]

谢谢版主。按照你的代码改后问题依旧。而且第一次获得的数据更不对了，我觉得代码也没有问题，不知道哪里的问题。
图片点击可在新窗口打开查看

此主题相关图片如下：无标题.png

此主题相关图片如下：无标题2.png

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/10/30 8:40:00 [只看该作者]

datacolchanged事件

If e.DataCol.name = "订单号" AndAlso forms("窗口1").opened Then
Forms("窗口1").Controls("TextBox9").Text = Tables("销售订单.销售明细表").Compute("sum(金额)") - val(Forms("窗口1").Controls("TextBox3").Text)
End If

TextChanged事件

Forms("窗口1").Controls("TextBox9").value = Tables("销售订单.销售明细表").Compute("sum(金额)") - val(Forms("窗口1").Controls("TextBox3").Text)