录入,查询与打印的新冠疫苗接种与核酸检测记录表

少如

                  自己顶一下

a18b88

少如 发表于 2022-12-6 22:10
自己顶一下

附件： 进存对账一体化1.rar (56.88 KB, 下载次数: 23)

2022-12-7 07:30 上传

点击文件名下载附件

熊文来

学良老师，最终的成形的文件还望你分享一下哟。

少如

a18b88 发表于 2022-12-7 07:30
附件：

非常感谢老师的帮助！请教下面两个没看懂的代码：
ReDim br(1 To UBound(ar), 1 To 11)
请教上面代码中的 1 和 11 是指什么？
.[a16].Resize(n, UBound(br, 2)) = br
上面的 2 是什么意思啊？
再次感谢！！！

少如

a18b88 发表于 2022-12-7 07:30
附件：

请见 34  楼请教问题 并予解惑为盼。
谢谢！

少如

a18b88 发表于 2022-12-7 07:30
附件：

老师好：请见 34  楼请教的问题 并予解惑为盼。
谢谢！

a18b88

少如 发表于 2022-12-9 14:53
老师好：请见 34  楼请教的问题 并予解惑为盼。
谢谢！

ReDim br(1 To UBound(ar), 1 To 11)’  记录明细表 自11列开始，输出到查询打印a16起始表内。
.[a16].Resize(n, UBound(br, 2)) = br ' 查询打印a16起始,记录明细表订单编号第2列起始逐列提取查询打印表。
水平有限不知道理解是否对，以供参考。

aails6543

感谢分享。赞一下。