表（商品信息表）里的ID列是禁止重复的。
希望在窗口里添加一个按钮，点击后效果为在原ID后面加上-001，如果已经有-001则-002以此类推。
然后新建一行，ID列为原ID。
代码应该怎么写呢。。
ID列并没有固定几位数。
我的ID并不是通过日期生成，新的ID也要在ID这一列。
就是，旧有ID后面要加上-001，然后还要另起一行输入原有的ID。
同时ID列是禁止重复的。
这个文档的情况和我需要的不一样。。
那个有看懂，我不懂的是怎么让旧ID和新ID在同一列。因为这一列还禁止重复了。
比如第3行是123456
点击按钮后第3行要变成123456-1
同时新增第4行为123456
如果已经存在123456-1则第3行应为123456-2
dim r as row = Tables("商品信息").current
dim 旧id as string =r("id")
r("id") = 旧id & "-1"
dim nr as row = Tables("商品信息").addnew
nr ("id") = 旧id & "-2"