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

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

 参考

http://www.foxtable.com/webhelp/scr/2779.htm

 你的listview必须是

lvw.View = ViewMode.Details \'显示模式为详细信息

 同时，你必须添加列

Dim c As WinForm.ListViewColumn = lvw.Columns.Add()

 再有问题请做实例上来测试。

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

第一列，无法设置样式，要变通处理下。

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

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