代码是这些， 然后这个窗口在产品那一栏，在记录窗口上， 点击产品，下面是显示了， 但是新增销售明细之后， 之前的记录还留在上面， 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:tianjiachanop.zip

窗口表事件

销售添加产品_销售添加产品_DoubleClick

If Tables("销售主表.销售明细").current IsNot Nothing AndAlso e.Table.current IsNot Nothing Then

    Tables("销售主表.销售明细").current("产品")=  e.Table.current("产品名称")

    Tables("销售主表.销售明细").current("规格")=  e.Table.current("规格")

    Tables("销售主表.销售明细").current("单位")=  e.Table.current("单位")

End If

Forms("销售添加产品").close

窗口与控件事件

销售添加产品_查询_Click

Dim cpmc As WinForm.TextBox = e.Form.Controls("产品名称")

Tables("销售添加产品_销售添加产品").filter = "产品名称 like \'*" & cpmc.text & "*\'"

销售添加产品_删除_Click

If messagebox.show("是否删除本记录?", "请确认", messageboxbuttons.YesNo) = dialogresult.Yes Then

Tables("产品明细表").Current.Delete

End If

销售添加产品_新增_Click

Tables("产品明细表").AddNew()

密码？

原来是记录窗口动态绑定问题：

两个记录窗口都绑定的是主表，而第一个表是主表，所以记录窗口能随着当前行的变化而变化。

但第二个表是副表，当前行的变化就不能反映到记录窗口了：

只要动态绑定就行了，销售单窗口的AfterLoad事件：

Dim rgd1 As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
rgd1.Table = e.Form.Controls("Table1").Table
rgd1.Build()
Dim rgd2 As WinForm.RecordGrid = e.Form.Controls("RecordGrid2")
rgd2.Table = e.Form.Controls("Table2").Table
rgd2.Build()

密码是888