drawcell事件
Select Case e.Col.Name
Case "单价","金额"
If _UserDept <> e.Row("库存单位")
If e.Row.IsGroup Then
If e.Row(0).contains(_UserDept) = False AndAlso e.Row(0) <> "总计" Then e.Text = "***"
Else
e.Text = "***"
End If
End If
Case "数量"
If e.Row("数量") < 10 Then
e.Style = "or"
Else
e.style = "els"
End If
End Select
[此贴子已经被作者于2016/9/28 20:20:34编辑过]