代码改成
Select Case e.DataCol.name Case "是否复核" DataTables("出库").replacefor("是否复核", e.DataRow("是否复核"), "销售编号 = '" & e.DataRow("销售编号") & "'")End Select