参考代码,datacolchanged事件
If e.DataCol.name = "第二列" Then systemready = False For i As integer = 1 To e.NewValue Tables("表A").Current.Clone Next systemready = TrueEnd If