主题：单元格样式设置某列背景色问题

If Tables("材料设备").Current IsNot Nothing Then
    If Forms("材料设备").Opened Then
        Dim dr As Row
        dr = e.Table.Current
        Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
        lvw.StopRedraw
        lvw.Rows.Clear() '清除原来的行
        Dim r As  WinForm.ListViewRow

        r = lvw.Rows.Add() '增加六行
        r.CellUseRowStyle = False

        r("项目") = "编号"
        r.Cells("项目").BackColor = Color.LightGray
        r("内容") = dr("编号")
        r =  lvw.Rows.Add() '增加一行
        r("项目") = "管理类型"
        r("内容") = dr("管理类型")
        r =  lvw.Rows.Add() '增加一行
        r("项目") = "文件"
        r("内容") = dr("文件")
        r =  lvw.Rows.Add() '增加一行
        r("项目") = "相关单位"
        r("内容") = dr("相关单位")
        r =  lvw.Rows.Add() '增加一行
        r("项目") = "相关事项"
        r("内容") = dr("相关事项")

        lvw.ResumeRedraw
    End If
End If

 

上述代码提示未将对象引用到实例，只要加上红色的行就会出现这个报错，请求帮助

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目4.rar

还是不行，在表格属性的事件里，窗口afterload事件里有代码

当选择table的不同行时，出现错误提示

 

谢谢