在窗口中建立表的副本,按“客户名称”汇总,按“排序列”和“订单号”排序。
载入窗口时,把“排产日期”不为空的行,自动勾选,在DrawCell 中把选中的绘制背景色。
AfterLoad:
'遍历每一行,把"排产日期"不为空的勾选For Each blr As Row In Tables(tbn).Rows If Not blr.IsNull("排产日期") Then blr.Checked = True End IfNext
DrawCell:
If e.Row.Isgroup = False Then
If e.Row.Checked = True Then e.Style = "选中" End If
End If
奇怪的是,每次都有一个“排产日期”不为空的行被漏选,但是背景色却又被绘制。而且第一行如果“排产日期”为空,也会被勾选。
不知道哪里出了问题,是代码写错了,还是软件有bug?