- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 控件与表 的计算问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60706)
-- 发布时间：2014/11/29 14:42:00
-- [求助] 控件与表 的计算问题
假设有个表 “总表” 上有个列 列名为 “hh1”（整数型列）
我在总表上添加了个窗口（窗口1），
窗口上加四个TextBox控件。名称分别为“TextBox1” “TextBox2” “TextBox3” “TextBox4“
TextBox1 上显示的是通过代码计算得出的数。
我想在TextBox2上显示的值 = "hh1"列的总和 / （TextBox1的值+1） ps：只要整数位，四舍五入
TextBox3上显示的值 = TextBox1 的值 / “_Identify” 列的最大值 * 100 ps：只要整数位，四舍五入
TextBox4上显示的值 =“_Identify” 列的最大值 / TextBox1 的值 ps：只要整数位，四舍五入
请问这个如何做到，代码应该怎么写？请前辈们帮一下！
还有个事情，如果我在窗口上增加个TextBox5.想在上面显示的值等于“hh1”列 最下面的值。 怎么搞？
谢谢谢谢！希望有前辈帮下忙！谢谢了！
-- 发布时间：2014/11/29 14:45:00
--
上个例子我教你
-- 发布时间：2014/11/29 14:47:00
--
compute(……)
-- 发布时间：2014/11/29 14:53:00
--
是不是我问题描述的不够详细？
-- 发布时间：2014/11/29 15:32:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:球分析走势.rar |
例子在这！
-- 发布时间：2014/11/29 15:33:00
--
czy y2287958 或者其他前辈 谁看见帮解决一下！
-- 发布时间：2014/11/29 15:34:00
--
万分感谢！
-- 发布时间：2014/11/29 15:55:00
--
Dim cxc1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim cx1 As Integer
cx1 = DataTables("基础走势").Compute("Count([h1])", "h1 = 0")
cxc1.text = cx1
e.Form.Controls("TextBox2").value = Math.Round((DataTables("基础走势").Compute("Sum([h1])") / cxc1.value)) + 1
e.Form.Controls("TextBox3").value = Math.Round(cxc1.value / DataTables("基础走势").Compute("Max([_Identify])") *100)
e.Form.Controls("TextBox4").value = Math.Round(DataTables("基础走势").Compute("Max([_Identify])") / cxc1.value)
e.Form.Controls("TextBox5").value = Tables("基础走势").Rows(Tables("基础走势").Rows.Count -1)("h1")
-- 发布时间：2014/11/29 17:01:00
--
刚刚整个小区都停了一会电，，才来电！！
CZY前辈，感谢你的帮助！你的方法搞定了！
谢谢！
万分感谢！
希望以后多多帮助！