2、假设子窗体要更新的字段其名曰B,则在子窗体B字段控件的双击事件中写:
if me.已更新.value=false then
me.Parent.Form.Controls("A").Value=me.B.value
end if
3、在主窗体的A控件的双击后事件中写:
if isnull(me.A.value)=false then
if me.子窗体.form.controls("已更新").value=False then
me.子窗体.form.controls("B").value=me.A.value & " 更新时间为:" & now()
me.子窗体.form.controls("已更新").value=True
me.子窗体.form.Recalc
me.A.value=null
end if
end if