控件代码打开窗口 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

按钮的代码如下，打不开窗口，只能切换到主表：

Dim Cols1() As String = {"订单编号","客商编码","客商名称","产品编码","产品名称","产品型号","产品规格","数量","单价","金额"}

Dim Cols2() As String = {"订单编号","客商编码","客商名称","产品编码","产品名称","产品型号","产品规格","数量","单价","金额"}

For Each dr1 As DataRow In DataTables("订单明细表").Select("[选择] = true")

Dim dr2 As DataRow = DataTables("收款明细表").AddNew()

For i As Integer = 0 To Cols1.Length -1

dr2(Cols2(i)) = dr1(Cols1(i))

MainTable = Tables("收款明细表")

Forms("收据明细表窗口").Show()

主题：控件代码打开窗口