Dim chk As WinForm.CheckBox chk = Forms("订单明细").Controls("CheckBox1")
If chk.checked = True Then Tables("订单拉板").AddNew() Tables("订单拉板").Current("序号")=Tables("订单明细").Current("序号1") Tables("订单拉板").Current("订单编号")=Tables("订单明细").Current("订单编号") Tables("订单拉板").Current("产品名称")=Tables("订单明细").Current("产品名称") Forms("订单拉板").Open End If