主题：窗口有难题

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

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

点击浏览该文件: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()