主题：DrawCell事件刷新有点问题

If e.Table.IsRelation Then
If e.Table.IsChild Then
If e.Row.IsGroup = False Then
' 用于在单据窗口中将所有负值显示为正值
If Forms("单据窗口").Opened Then
Select Case e.Col.Name
Case "数量"
e.Text = Math.Abs(CDbl(e.Row(e.Col.Name)))
Case "金额"
e.Text = Format(Math.Abs(CDbl(e.Row(e.Col.Name))),"N")
End Select
End If
End If
End If
End If