If e.DataCol.Name = "需要制版" Then '如果需要制版列的内容变动 If e.DataRow("需要制版") = True Then '而且变动后的值是True(已勾选) Dim cr As Row = Tables("制版明细").AddNew cr("制版厂家") = e.DataRow("制版厂家") cr("制版成本") = e.DataRow("制版成本") cr("订单日期") = e.DataRow("订单日期") cr.Save End If End If