- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 代码增加多行 并赋值计算其他行结果 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89954)
-- 发布时间：2016/9/1 22:45:00
-- 代码增加多行 并赋值计算其他行结果
代码增加多行 并赋值
增加3行
每行赋予不同值
例如：1 = 茄子
2 = 萝卜
3 = 蔬菜
[此贴子已经被作者于2016/9/2 0:06:12编辑过]
-- 发布时间：2016/9/1 23:06:00
--
Dim str() As String = {"茄子1","茄子2","茄子3"}
For i As Integer = 0 To 2
Dim r As Row = Tables("表A").AddNew
r("第一列") = str(i)
Next
-- 发布时间：2016/9/1 23:26:00
--
[此贴子已经被作者于2016/9/1 23:43:13编辑过]
-- 发布时间：2016/9/1 23:44:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:对话框+计算.foxdb |
赋值学会了
实例请教 计算方案
实例请教 计算方案
[此贴子已经被作者于2016/9/2 0:05:11编辑过]
-- 发布时间：2016/9/2 8:51:00
--
For j As Integer = 1 To 5
If e.Form.Controls("TextBox" & j).Text = "" Then
msgbox("请输入完整的数据")
Return
End If
Next
Dim Result As DialogResult
Result = MessageBox.Show("您是否确定增加该数据,是不是?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Dim str() As String = {"桌脚","桌面","立水","长提"}
For i As Integer = 0 To 3
Dim r As Row = Tables("BOM").AddNew
r("部件名称") = str(i)
r("外观_长") = e.Form.Controls("TextBox1").Text
r("外观_宽") = e.Form.Controls("TextBox2").Text
r("外观_厚") = e.Form.Controls("TextBox3").Text
r("产品名称") = e.Sender.Text
Select Case str(i)
Case "桌面"
r("长") = r("外观_长")
r("宽") = r("外观_宽")
r("数量") = val(e.Form.Controls("TextBox4").Text)
Case "桌脚"
r("长") = 80
r("宽") = 80
r("厚") = r("外观_厚")
r("数量") = val(e.Form.Controls("TextBox5").Text)
Case "立水"
\'根据自己的算法实现
Case "连杆"
\'根据自己的算法实现
End Select
Next
Else
MessageBox.Show("想好了再来.","提示")
End If
DataTables("BOM").Save()