Series.X.DataField = "客户" Series.Y.DataField = "实际应收" Series.DataLabelText = "{#YVAL}" Dim jk As Double = Series.DataLabelText If jk > 0 Then Series.DataLabelBackColor = Color.MidnightBlue Series.DataLabelForeColor = Color.white Else Series.DataLabelBackColor = Color.red Series.DataLabelForeColor = Color.white End If
加好友 
发短信
Post By：2015/1/14 23:36:00 [显示全部帖子]
