老师， 图一：采购订单录入窗口
图二：通过图一录入保存后，刷新至采购订单列表
图三：第二次通过采购订单录入窗口录入保存后，刷新的采购订单列表，画红框的完全替换了第一次录入的内容
窗口保存按钮Click事件
Dim t As Table = e.Form.Controls("Table1").Table
t.DataTable.ReplaceFor("业务类型",e.Form.Controls("业务类型").Text)
t.DataTable.ReplaceFor("订单编号",e.Form.Controls("订单编号").Text)
If e.Form.Controls("日期").Text > "" Then
t.DataTable.ReplaceFor("日期",e.Form.Controls("日期").value)
End If
t.DataTable.ReplaceFor("采购类型",e.Form.Controls("采购类型").Text)
t.DataTable.ReplaceFor("供应商",e.Form.Controls("供应商").Text)
t.DataTable.DeleteFor("存货编号 is null")
t.DataTable.Save()
e.Form.close
采购订单列表Afterload事件
DataTables("采购订单列单").load
此主题相关图片如下：图一.png
加好友 
发短信
Post By：2017/3/13 11:26:00 [只看该作者]
