- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 窗口做计算器 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115724)
-- 发布时间：2018/3/13 13:05:00
-- 窗口做计算器
如图，
1、据按钮变化下面文本框数量多少（或者跟网页镶嵌一样，下面出现另外一个固定窗口输入数据可以自动计算结果）
2、按每个按钮，下面文本框计算公式不同。
3、将计算结果体现在结果框内
4、新建按键如何让在范08列空位开始填写数据，而不是新建行
此主题相关图片如下：tim截图20180313125610.png
-- 发布时间：2018/3/13 14:45:00
--
没看懂你表达的意思。
1、做什么操作，得到什么效果？请举例说明。
2、公式是什么意思？请举例说明。
-- 发布时间：2018/3/13 15:05:00
--
问题1： 范08，范09，范10 对应实例中的表：范围取值，点击单元格跳出窗口 这个表中的相对列，问题是，8 9 10这3列数据是固定的，如果有新数据才增加，没有就时钟这么多。4、5、6列中是灵活的，实时增加行，我想使用新建按钮，把新的数据输入到范08 09 10列，下面有空行，所以不增加行，给空行增加数据就行。
问题2：下面有3个按钮，点按钮1：加减乘除时候，对应的下面所有文本框按照公式进行计算，然后给出结果，如果我点按钮：乘法，下面所有文本框的公式就变更其他公式了，然后自动计算给出结果。
结果钱所有文本框是手动输入计算，不写入数据库，相当于计算器。
[此贴子已经被作者于2018/3/13 15:09:25编辑过]
-- 发布时间：2018/3/13 15:51:00
--
1、增加的问题这样写代码，如
Dim fdr As DataRow = DataTables("表A").find("第一列 is null", "_Identify")
If fdr Is Nothing Then
fdr = DataTables("表A").AddNew
End If
fdr("第一列") = "123"
fdr("第二列") = "789"
2、没看懂你的意思。公式是什么？计算逻辑是什么？要计算什么的的值？计算结果显示到哪里？
-- 发布时间：2018/3/13 16:43:00
--
如图1，点新增，定位到8列没有数据第一行，就是数字8下一行的空行，不是最后一行
此主题相关图片如下：0001.png
图2、图3，意思就是按不同按钮，下面输入内容按照定义的公式自动计算结果，公式可以自定义，不一定按图片显示
此主题相关图片如下：0002.png
此主题相关图片如下：0003.png
此主题相关图片如下：0004.png
[此贴子已经被作者于2018/3/13 16:44:37编辑过]
-- 发布时间：2018/3/13 16:59:00
--
比如乘法按钮
Dim n1 as double = val(e.form.controls("textbox1").text)
Dim n2 as double = val(e.form.controls("textbox2").text)
Dim n3 as double = val(e.form.controls("textbox3").text)
e.form.controls("textbox10").Text = n1*n2*n3
-- 发布时间：2018/3/13 17:01:00
--
新增代码，你控件不要绑定表列，然后写代码
Dim fdr As DataRow = DataTables("表A").find("第一列 is null", "_Identify")
If fdr Is Nothing Then
fdr = DataTables("表A").AddNew
End If
fdr("第一列") = e.form.contros("TextBox1").text
fdr("第二列") = e.form.contros("TextBox1").text
-- 发布时间：2018/3/13 17:59:00
--
已解决，把判断第一列修改为 8列正常了。不用回复