以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]副本表新增代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79244)
--  作者：seal51
--  发布时间：2015/12/27 14:48:00
--  [求助]副本表新增代码

销售窗口有两个副本表， 订单副本表， 订单明细副本表， 用系列代码关联

Tables("销售窗口_订单明细").Filter = "订单号 = \'" & Tables("销售窗口_订单").Current("订单号") & "\'"

请问， 订单明细副本表如何新增
--  作者：大红袍
--  发布时间：2015/12/27 14:51:00
--  

DataRowAdded事件

 

If currentTable.Name = "销售窗口_订单明细" Then

    \'赋值

End If
--  作者：seal51
--  发布时间：2015/12/27 14:58:00
--  

新增按钮的代码如何写

 

就像原来的关联表那样 Tables（"订单.订单明细"）.addnew

[此贴子已经被作者于2015/12/27 14:59:52编辑过]
--  作者：大红袍
--  发布时间：2015/12/27 15:11:00
--  

Dim nr As Row = Tables("销售窗口_订单明细").AddNew

nr("订单号") = Tables("销售窗口_订单").Current("订单号")

--  作者：seal51
--  发布时间：2015/12/27 16:04:00
--  

谢谢老师， 还有一个订单副本表删除按钮的代码， 此订单号下无订单明细才能删除， 如何写， 关联表是这样写的， 那么副本表如何写呢？

 

If Tables("订单明细").Rows.Count > 0 Then
    MessageBox.Show("该订单有明细项,请先删除明细项再删除此订单!")
    Return
Else
    If MessageBox.Show("是否删除?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
        Tables("订单").Current.Delete
    End If
End If
--  作者：大红袍
--  发布时间：2015/12/27 16:05:00
--  
If Tables("销售窗口_订单明细").Rows.Count > 0 Then
--  作者：seal51
--  发布时间：2015/12/27 16:11:00
--  
不用对应相关的订单号吗?
--  作者：大红袍
--  发布时间：2015/12/27 16:39:00
--  
以下是引用seal51在2015/12/27 16:11:00的发言：
不用对应相关的订单号吗?

 

你窗口表不是已经筛选了么？

 

如果要对应，就写find语句

 

If DataTables("订单明细").Find( "订单号 = \'" & Tables("销售窗口_订单").Current("订单号") & "\'") isnot Nothing Then

 

End If