datacolchanged事件
If e.DataCol.name = "调度选定" Then If e.DataRow("调度选定") = True Then e.DataRow("调度单号") = Tables("表B").current("调度单号") Else e.DataRow("调度单号") = Nothing End IfEnd If