以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]增加行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145148)
--  作者：江南小镇
--  发布时间：2020/1/9 19:12:00
--  [求助]增加行
老师好，子表增加行时通过按钮代码把父表单元格中字段赋值给子表对应的单元格中。
--  作者：程兴刚
--  发布时间：2020/1/10 0:20:00
--  
发文件很简单！
--  作者：有点蓝
--  发布时间：2020/1/10 9:59:00
--  
dim pr as row = tables("父表").current
if pr is nothing then return
dim r as row = tables("子表").addnew
r("第一列") = pr("第一列")
--  作者：江南小镇
--  发布时间：2020/1/10 16:52:00
--  
老师，下面代码是在入库单编号生成后子表自动增加一行，现在我想让父表窗口组合框1字段输入结束后自动增加行。
Select Case e.DataCol.Name 
    Case "入库单编号"
        If e.DataRow.IsNull("入库单编号") = False Then \'如果已经输入订单编号
            If e.DataRow.GetChildRows("入库明细").Count = 0 Then \'而且无订单明细
                Dim dr As DataRow = DataTables("入库明细").AddNew()
                dr("入库单编号") = e.DataRow("入库单编号")

            End If
        End If
End Select
[此贴子已经被作者于2020/1/10 16:53:38编辑过]
--  作者：有点蓝
--  发布时间：2020/1/10 17:08:00
--  
如果组合框1绑定列，仍然还是到表事件处理

如果没有绑定，到组合框1，valuechanged事件处理，用法参考3楼
--  作者：江南小镇
--  发布时间：2020/1/10 17:09:00
--  
老师，控件绑定了。