回9楼,颜色建议还是在Drawcell处理
测试
.....
If dr IsNot Nothing Then
msgbox(0)
SystemReady = False
DataTables("历史材料").RemoveFor("[历史材料编号] = '" & e.Table.Current("历史材料编号") & "'") '
DataTables("历史材料").AppendLoad("[历史材料编号] = '" & e.Table.Current("历史材料编号") & "'")'
SystemReady = True
wz = Tables("历史材料").FindRow("[历史材料编号] = '" & e.Table.Current("历史材料编号") & "'")
msgbox(wz)
If wz >= 0 Then
msgbox(1)
Tables("历史材料").Position = wz
End If
End If