删除按钮_汪涵拜师学艺第七篇：往来单位查询删除按钮和新增判断的设计！

老师好！大家好！我叫汪涵：

今天给大家分享往来单位查询删除按钮和新增判断的设计！

在开始具体内容之前，请让我先分享我们的价值观：

用自律和勤奋来改变命运，不走捷径，有爱心，知难而上做个好人！

正文：

1、首先，先要理解并设计出新增判断条件，在往来单位查询表写一条可”批量新增“的公式。

公式中所用到的”非包含“，就是拿着当前的名称到档案中去找，找不到的意思，也即这个名称在档案中是没有的；

本报表客户/供应商编号=空字符的意思是这个单位是档案中没有的，因为单位编号是在新增档案时自动生成的，通过查询表进行批量新增往来单位档案时，是不用生成往来单位编号的。客户/供应商编号等于所属这个编号信息全部的意思(老师批注：这个理解是错误的，这里的意思与提取数据时的意思是不一样的)，然后，这个登录用户角色%+辅助设计+%是被赋予可以对本报表进行改动的角色，只有他可以。

2、在表中有一个【是否使用】的字段，是提供哪些往来单位是使用过的判断，所以，要写一个公式，公式的来源表是一个内源的设计；

在内源设计一个往来单位资料是否被使用的检查的内源，只加上一个项目名客户/供应商编号，因为使用往来单位的业务有销售订单或采购订单，因此，这里的来源就是这二个业务单据的主表。内源设计好后，就可以加到表间取数中去。

接下来在往来单位资料查询的模板上加上一个按钮批量新增，给他加上代码

Sub 批量新增往来单位资料数据()

Dim obj As Object

Set obj = Application.COMAddIns.Item("prjAddin.Office_Addin").Object

obj.SaveReport

obj.execFormula "取数;是否使用"

Set obj = Nothing

End Sub

批量新增是在查询表可以填上信息，在点击编号链接是信息可以出现在初始档案中，所以代码用到的是表间取数公式。

3、然后在讲解删除的设计，在表间同步跟新公式中新增(删除、修改和删除历史查询)；

删除是直接删除往来单位档案，写表间更新公式，判断条件是非常严谨的，只有未使用的往来单位，并且是授权的角色才能删除。

公式的跟新类型是删除原有数据，来源表是往来单位资料；客户/供应商编号是记录往来单位信息的重要字段，所以往来单位资料的客户/供应商编号要等于本报表的客户/供应商编号，这里客户/供应商编号是包含这个编号的信息。

删除历史查询时删除之前历史的查询信息。

在读写控制公式加上已使用，不得删除！给删除按钮加上代码，表间同步跟新公式只需要加上删除公式

4、这里我们主要设置这几个公式删除、修改和是否使用；删除公式的运用主要是根据这行的编号把数据库中的往来单位资料中相同编号的档案删除，然后在删除公式中要加上一个是否已用的条件，那么就要去设置是否使用的取数公式，刚刚说到这个取数公式用到了内源设计。去新增一个内源只提取客户/供应商的编号，因为往来单位资料查询时记录客户/供应商信息的，再去设计来源表分别是销售订单和采购订单，刚刚也说了往来单位资料是给销售订单和采购订单的主表使用，所有来源表要使他们的主表千万不要选明细，，明细是记录物料信息的。在去新增公式，筛选条件是销售订单和采购订单的客户/供应商编号要等于查询的客户/供应商的编号。(对比上节内容，要准确理解和描述出来！)