选定行 有1个子表(订单编号关联),每个子表内的行数不同,可能有的行没有子表
完成效果
1.父表,选定行的指定列复制到新增行的指定列,保存新增行,保存完成时新增行就会确定订单编号列的值。这个代码被大红袍师傅教会了,代码如下。
Dim t As Table = Tables("生产进度表")Dim cr As Row = t.CurrentDim nr As Row = t.AddNewnr("下单日期") = Date.Today nr("客户") = cr("客户")nr("款号") = cr("款号")Tables("生产进度表").Current.Save()
以下代码不会写
2.判断选定行有没有子表,有子表时执行代码A,没有子表执行代码B A:判断选定行子表有多少行,然后在新增行的子表内新增多少行,再把选定行子表的所有值复制到新增行的子表内,最后新增行的子表内的提定列的值为空。