以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  一个问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=184331)
--  作者：xiaochongsm97
--  发布时间：2022/12/3 22:54:00
--  一个问题
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw
lvw.Groups.Clear
lvw.Rows.Clear
lvw.Images.Clear
lvw.View = ViewMode.LargeIcon
lvw.Font = New Font("宋体", 12, FontStyle.Bold)
lvw.Images.AddImage("China", "China.Ico", "China48.Ico")
For Each r01 As DataRow In DataTables("住房信息").DataRows
   Dim vg As WinForm.ListViewGroup = lvw.Groups.Add
     vg.Name = r01("楼栋") & r01("单元号") 
     vg.Text = r01("楼栋") & r01("单元号") 
Next
DataTables("隔离信息查询").Load

Dim T_filter As String

For Each rr As DataRow In DataTables("住房信息").DataRows
    T_filter = "单元号=\'" & rr("单元号") & "\' and 房号 =\'" & rr("房号") & "\' and 楼栋 =\'" & rr("楼栋") & "\'"
    Dim r02 As DataRow = DataTables("隔离信息查询").Find(T_filter)
    Dim r As WinForm.ListViewRow = lvw.Rows.Add
    r.Text = rr("房号")&"||"&r02("姓名")
    r.Group = rr("楼栋") & rr("单元号")
    r.ImageKey = "China"
Next
lvw.ResumeRedraw

运行提示：
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：窗口,隔离信息展示,AfterLoad
详细错误信息：
未将对象引用设置到对象的实例。
不知道是什么原因
--  作者：有点蓝
--  发布时间：2022/12/4 20:01:00
--  
http://www.foxtable.com/webhelp/topics/0396.htm，看看示例三的说明