自己做个同步按钮,同步父表当前行及其在子表对应的所有行:
Dim pr As DataRow Tables("父表").Current.DataRowpr.Load()For Each dr As DataRow In pr.GetChildRows("子表") dr.load()Next