主题：窗口做计算器

如图，

没看懂你表达的意思。

 

1、做什么操作，得到什么效果？请举例说明。

 

2、公式是什么意思？请举例说明。

问题1： 范08，范09，范10 对应实例中的表：范围取值，点击单元格跳出窗口 这个表中的相对列，问题是，8 9 10这3列数据是固定的，如果有新数据才增加，没有就时钟这么多。4、5、6列中是灵活的，实时增加行，我想使用新建按钮，把新的数据输入到范08  09  10列，下面有空行，所以不增加行，给空行增加数据就行。

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、没看懂你的意思。公式是什么？计算逻辑是什么？要计算什么的的值？计算结果显示到哪里？

如图1，点新增，定位到8列没有数据第一行，就是数字8下一行的空行，不是最后一行

比如乘法按钮

 

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

新增代码，你控件不要绑定表列，然后写代码

 

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