请教下，如何实现输入一列内容后，相关内容可以自动填入 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师有二个问题请教下：

问题一：表格中有“委托单编号”、“校验记录编号”、“校验报告编号”、”校验编号“四列，委托单编号的内容是：ZRJC-WT-2024-0001,校验记录编号的内容是：ZRJC-JL-2024-0001，校验报告的编号是：ZRJC-BG-2024-0001，校验编号是：2024-0001，四列的主要内容相同，不同部分分别是编号的第2小项中的字母，校验编号直接是把字母部分去除即可，能否实现我在委托单编号列输入内容后，其余三列自动输入内容？

例如，在委托单编号列输入 ZRJC-WT-2024-0002后，校验记录编号列自动输入了：ZRJC-JL-2024-0002，校验报告编号列自动输入了：ZRJC-BG-2024-0002，校验编号列自动输入了：2024-0002

问题二：表格中有“接收日期”列和”年份“，“月份”，三列，三列的关系是：当接收日期中输入数值后，其余的年份和月份分别显示为接收日期数值中的年份和月份，例如，接收日期例输入2024-06-10后，年份为2024，月份为06

麻烦老师把校验编号那个还有如何提取年份和月份的代码给写下吧，因为刚接触狐表，现在使用的是软件的基本管理功能，代码正在学习中，因表中有大量数据，不敢轻易偿试，所以请老师帮助写下吧，谢谢！

也正好拿你的代码与我自己偿试编号的代码对照学习下

老师，能在你给编号的代码里，把校验编号列自动输入内容的代码给写下吗？

老师有二个问题请教下：

If e.DataCol.Name = "委托单编号" Then
If e.DataRow.IsNull("委托单编号")=false Then
e.DataRow("校验记录编号") = e.DataRow("委托单编号").replace("-WT-","-JL-")

e.DataRow("校验报告的编号") = e.DataRow("委托单编号").replace("-WT-","-BG-")

End If
End If

上面的代码是你帮助给填写的，但是没有校验报告这一列，想请你帮助给填补上

[此贴子已经被作者于2024/6/12 17:15:17编辑过]

replace("-WT-","|").split("|")(1)

老师，这个代码没看明白，能否给注释一下，特别是后面的（1）

正在学习中，本人80后，工作节奏快，还有正在上学的孩子，学习的时间确实有限，目前正在使用狐表的基本功能，但一直没有放松学习，只是代码对我而言确实学习起来有难度，所以学习速度很慢，但是一些功能又确实需要，所以只能厚着脸皮一次次将问题向老师提问了，还请老师多包涵。

主题：请教下，如何实现输入一列内容后，相关内容可以自动填入