关联子表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
放在窗体里执行时刷新显示。
每当单据窗体里的关联子表记录行被删除，克隆，数据被修改时，都会调用
Tables("单据子表").Refresh '用于强制刷新子表DrawCell事件,以便子表的数量,金额列显示绝对值
。
现在问题来了。
每当删除，克隆子表记录行后，DrawCell不启动，只有当鼠标放在记录行上滑动一边，再会刷新。
[此贴子已经被作者于2014-10-27 14:38:18编辑过]
加好友 
发短信
Post By：2014/10/27 14:38:00 [只看该作者]
