bug
'遍历每一行,把"排产日期"不为空的勾选For Each blr As Row In t.Rows t.Position = blr.Index If Not blr.IsNull("排产日期") Then blr.Checked = True End IfNext