老师好:这个代码怎样改成按钮,在按钮中应该怎样写呢?多谢。
If e.DataCol.name = "审核" Then Dim pr As DataRow = e.DataRow.GetParentRow("订单") If pr IsNot Nothing Then Dim crs As List(of DataRow) = pr.GetChildRows("订单明细") Dim cnt As Integer For Each cr As DataRow In crs If cr("审核") = True cnt = cnt + 1 End If Next pr("审核") = (crs.Count = cnt) End IfEnd If