设置指定列是否可见。

语法：

AddUserStyle(Name,BackColor,ForeColor)

Name:      样式名称
BackColor: 背景颜色
ForeColor: 字体颜色

DataList的DrawCell事件在绘制单元格的时候执行，该事件的e参数属性有：

Form:     触发事件的窗口
Sender:   触发事件的控件
DataRow:  正在绘制的数据行
ColName： 正在绘制的列的名称
Style：   用于绘制单元格的样式名称

DrawCell

在绘制单元格的时候执行。

e参数属性有：

Form:     触发事件的窗口
Sender:   触发事件的控件
DataRow:  正在绘制的数据行
ColName： 正在绘制的列的名称
Style：   用于绘制单元格的样式名称

示例

假定DataList用于显示订单数据，我们希望对于大于5000的金额，用红底蓝字标出，对于大于4000的金额，用蓝底白字标出。

首先在窗口的AfterLoad事件中设置代码，增加两个样式：

Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
dst.AddUserStyle("a",Color.Red,Color.Blue)
dst.AddUserStyle("b",Color.Blue,Color.White)

然后将DataList的DrawCell事件设为：

If e.ColName = "金额" Then
    Dim Val As Double = e.DataRow("金额")
    if Val > 5000 Then
        e.Style = "a"
    ElseIf Val > 4000 Then
        e.Style= "b"
    End If
End If

示例二

DrawCell事件不仅用于标记数据，还可以用他“篡改”数据。
假定有一名为“密码”的列，要求只有经理级别的用户才能查看该列的数据，其他人查看的时候，看到的只是"****"。
实现的代码也非常简单，在该表的DrawCell事件中输入：

If User.Group = "经理" Then \'如果是经理
    Return \'那么返回，正常显示数据
End If
If e.Col.Name = "密码" Then \'如果正在绘制的是密码列
    e.Text = "****" \'那么用*代替原来的内容
End IF

DrawCell事件只是影响显示内容，并不会对真实的值有任何影响。