Dim s As DataRow = e.Row.DataRow.GetParentrow("利润单") '如果当前表的父表"利润单"中的"订单状态"列中的内容等于"2-财务审核",那么锁定子表中的下列(订单编号,实收,收入凭号等)多列 If e.Col.Name = "订单编号" OrElse e.Col.Name = "实收" OrElse e.Col.Name = "收入凭号" OrElse e.Col.Name = "收入说明" OrElse e.Col.Name = "申请支出" OrElse e.Col.Name = "支出说明" OrElse e.Col.Name = "支出去向"Then If s IsNot Nothing AndAlso s("订单状态") = "2-财务审核" Then e.cancel = True End If End If