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
详细错误信息：
未将对象引用设置到对象的实例。
不知道是什么原因
加好友 
发短信
Post By：2022/12/3 22:54:00 [显示全部帖子]
