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

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

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

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

正文：

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

5、 然后在去给删除公式和修改公式加上条件；在修改公式当中加上一个未使用的条件是为了如果被使用了就不能进行修改或删除。在去进行测试，建立了档案，客户订单中就可以选择，用了的客户关键的信息就不可以修改这样的一种条件。登陆用户角色%+辅助设计+%是被赋予了可对本报表进行修改的角色确定，是有他可以修改。

谢谢大家我的分享完毕！

老师和师兄师弟近作：

《易盛宁洲：平台化、无代码、结构化的敏捷开发技术可以普及开来，成为中职学生的一个新职业——数字化管理师！》

《易盛宁洲：“企业数字化管理专员”培养计划，帮助中职学生找到一个好的职业定位，为企业培养出好的人才！》

《仓库备料数据调整-金论》

《查询表打开报错问题解决》

《黄子剑学习日志：库存盘点和盘点查询的设计(第三篇)》

《汪涵拜师学艺，第二篇：对销售发货业务流程设计的复习巩固和对状态切换设计的学习！》

《产品入库末道检验-金论》

《工费数据未提取问题解决》

《好好学习，天天向上》

《黄子剑学习日志：分切纸业库存汇总表的设计(第二篇)》

《产品入库检验-金论》

《财务付款登记数据未提取问题核查》

《学海无涯，心存高远》

《汪涵拜师学艺，第二篇：按销售订单控制发货，还要考虑因退货而补货的情况，业务逻辑分析与软件设计》

《制程完成产品检验-金论》

《审批问题查询与调整》

《矢志向学，敢于胜利》

《汪涵拜师学艺：第一篇：业务初始化时会用到的“批量新增”和“删除”功能设计》