afterload加入代码
Dim gx As WinForm.CheckBox = e.Form.Controls("勾选") Dim flag As Boolean = TrueFor Each r As Row In Tables("订单主表.订单明细表").Rows If r("已下单") = False Then flag = False Exit For End IfNext
gx.Checked = flag