主题：录入窗口，如何输入完，按“保存”按钮再保存

现在录入窗口的table直接绑定表，会马上更新到表里，容易误操作。如何能输入完，按“保存”按钮再保存。需要专门做一个录入表，还是把设置窗口中的table？

textbox等控件不要与表字段绑定，在保存按钮中用代码直接将填入textbox等控件的值赋给表当前行的字段

表的内容是改了，但是并没有保存，另外一个项目看到的也是没有更改的内容。

 

如果想取消更改，可以用DataTables("表A").RejectChanges()

 

绑定的目的就是为了实时更新，不想实时更新就不要绑定了，在保存按钮中手工更新。

能提供一下“保存”按钮的代码吗？

http://www.foxtable.com/help/topics/1516.htm

 

多余的空行，判断是否为空值，然后删除

保存按钮代码

 

Dim f As New Filler
f.SourceTable = DataTables("计划单临时表") '指定数据来源
f.SourceCols = "计划单号,材料名称,规格型号,单位,数量,到货时间,备注" '指定数据来源列
f.DataTable = DataTables("计划单明细") '指定数据接收表
f.DataCols = "计划单号,材料名称,规格型号,单位,数量,到货时间,备注" '指定数据接收列
f.filter = "计划单号 is not null"
f.Fill() '填充数据

 

http://www.foxtable.com/help/topics/0680.htm

 

“保存”按钮的代码能提供一下吗？

如代码

 

Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
Dim Cols2() As String = {"接收列一","接收列二","接收列三"}
For Each dr1 As DataRow In DataTables("表A").Select("")
    Dim dr2 As DataRow = DataTables("表B").AddNew()

    dr2("计划单号") = e.Form.Controls("TextBox1").Text
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
Next

CurrentTable.save()