以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  控件  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=52814)
--  作者：ZXJ
--  发布时间：2014/6/23 17:28:00
--  控件

请问如何在窗口控件中显示本表的“金额”的合计数啊
--  作者：Bin
--  发布时间：2014/6/23 17:32:00
--  
用代码设置合计模式 http://www.foxtable.com/help/topics/2750.htm

如果要在文本框显示 利用Computehttp://www.foxtable.com/help/topics/0393.htm
--  作者：ZXJ
--  发布时间：2014/6/24 8:25:00
--  

合计出来的数字，怎么显示到单个LABEL控件中啊
--  作者：Bin
--  发布时间：2014/6/24 8:29:00
--  
用Compute统计为Label赋值http://www.foxtable.com/help/topics/0393.htm
--  作者：ZXJ
--  发布时间：2014/6/24 9:23:00
--  

此代码编写在哪个位置啊？
--  作者：有点甜
--  发布时间：2014/6/24 9:26:00
--  
以下是引用ZXJ在2014-6-24 9:23:00的发言：

此代码编写在哪个位置啊？

 

代码写在表的DataColchanged事件

 

If e.DataCol.Name = "金额" Then

    If Forms("窗口1").Opened Then

        Forms("窗口1").Controls("Label1").Text = e.DataTable.Compute("sum(金额)")

    End If

End If
--  作者：ZXJ
--  发布时间：2014/6/24 11:52:00
--  

上述问题已在窗口CLICK命令中已解决，代码如下

Dim Sum1 As Double = Tables("发料汇总").Compute("Sum(合价)")
Dim Sum2 As Double = DataTables("发料汇总").Compute("Sum(合价)")
 Dim Sum3 As Double = Tables("发料汇总").Compute("Sum(发料量)")
 Forms("发料汇总").Controls("Label6").Text =Sum1
 Forms("发料汇总").Controls("Label4").Text =Sum2
Forms("发料汇总").Controls("Label2").Text =Sum3

但上述表格为外部表，我关闭窗口时此表已卸载，打开窗口时才重新加载此表

所以关闭窗口时，会提示“不存在《发料汇总》表”

此问题如何解决啊？
--  作者：有点甜
--  发布时间：2014/6/24 11:54:00
--  

If Forms("发料汇总").Opened Then 
    Dim Sum1 As Double = Tables("发料汇总").Compute("Sum(合价)")
    Dim Sum2 As Double = DataTables("发料汇总").Compute("Sum(合价)")
    Dim Sum3 As Double = Tables("发料汇总").Compute("Sum(发料量)")
    Forms("发料汇总").Controls("Label6").Text =Sum1
    Forms("发料汇总").Controls("Label4").Text =Sum2
    Forms("发料汇总").Controls("Label2").Text =Sum3   
End If
--  作者：ZXJ
--  发布时间：2014/6/24 15:20:00
--  

谢谢！
--  作者：ZXJ
--  发布时间：2014/7/12 11:56:00
--  

请问用户管理使用外部表时，总是出错，我只希望用户管理只要有：用户名、分组、用户角色、密码即可。请告诉我这个外部表怎么编制，格式是什么样