以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 控件代码打开窗口 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=159085) |
-- 作者:爱相随 -- 发布时间:2020/12/13 14:10:00 -- 控件代码打开窗口 按钮的代码如下,打不开窗口,只能切换到主表: 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)) Next Next MainTable = Tables("收款明细表") Forms("收据明细表窗口").Show() |
-- 作者:有点蓝 -- 发布时间:2020/12/13 20:52:00 -- 窗口的所有者表是什么? Forms("收据明细表窗口").Show() |