专家坐堂-绑定表保存增加按钮Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  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=128228)

--  作者：zhuxinhui
--  发布时间：2018/12/1 16:04:00
--  绑定表保存增加按钮

绑定窗口表增加保存数据，出现了不停闪动，不知是什么问题，
If e.Form.controls("TextBox1").value = "" Then
MessageBox.Show("请录入厂商名称!", "提示", MessageBoxButtons.Ok, MessageBoxIcon.Information)
Return
End If

For Each r As Row In e.Form.Controls("Table1").Table.Rows \'e.Form.Controls("Table1").Table.addnew
Dim dr As DataRow = DataTables("销售表").AddNew()

dr("客户") = Trim(e.Form.controls("TextBox1").value)
dr("日期") = Trim(e.Form.controls("TextBox2").value)
dr("单号") = Trim(e.Form.controls("TextBox3").value)
dr("货物编号")=r("货物编号")
dr("货物名称")=r("货物名称")
dr("规格")=r("规格")
dr("数量")=r("数量")
dr("单价")=r("单价")
dr("金额")=r("金额")
Next
DataTables("销售表").Save()

--  作者：zhuxinhui
--  发布时间：2018/12/1 16:05:00
--

此主题相关图片如下：11.gif

--  作者：zhuxinhui
--  发布时间：2018/12/1 16:06:00
--

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:管理项目1.zip

--  作者：zhuxinhui
--  发布时间：2018/12/1 16:07:00
--
想学下不用关联表做相关窗口按钮

--  作者：有点蓝
--  发布时间：2018/12/1 16:39:00
--

If e.Form.controls("TextBox1").value = "" Then
MessageBox.Show("请录入厂商名称!", "提示", MessageBoxButtons.Ok, MessageBoxIcon.Information)
Return
End If
DataTables("销售表").StopRedraw
For Each r As Row In e.Form.Controls("Table1").Table.Rows \'e.Form.Controls("Table1").Table.addnew
Dim dr As DataRow = DataTables("销售表").AddNew()

dr("客户") = Trim(e.Form.controls("TextBox1").value)
dr("日期") = Trim(e.Form.controls("TextBox2").value)
dr("单号") = Trim(e.Form.controls("TextBox3").value)
dr("货物编号")=r("货物编号")
dr("货物名称")=r("货物名称")
dr("规格")=r("规格")
dr("数量")=r("数量")
dr("单价")=r("单价")
dr("金额")=r("金额")
Next
DataTables("销售表").Save()
DataTables("销售表").ResumeRedraw

--  作者：zhuxinhui
--  发布时间：2018/12/2 18:09:00
--
直接就卡死不能动了，只有强行关闭程序

--  作者：zhuxinhui
--  发布时间：2018/12/2 18:15:00
--
不知是不是代码有问题

--  作者：有点甜
--  发布时间：2018/12/2 21:03:00
--

你table1和就是销售表啊，所以不需要新增保存，直接保存即可啊，如

If e.Form.controls("TextBox1").value = "" Then
    MessageBox.Show("请录入厂商名称!", "提示", MessageBoxButtons.Ok, MessageBoxIcon.Information)
    Return
End If

For Each dr As Row In e.Form.Controls("Table1").Table.Rows
    dr("客户") = Trim(e.Form.controls("TextBox1").text)
    dr("日期") = Trim(e.Form.controls("TextBox2").text)
    dr("单号") = Trim(e.Form.controls("TextBox3").text)
Next
DataTables("销售表").Save()
e.Form.Controls("Table1").Table.addnew

--  作者：有点甜
--  发布时间：2018/12/2 21:04:00
--

如果你table1是另一个表（不是销售表），那你用你以前的代码或者6楼的代码，都可以。