Foxtable(狐表)用户栏目专家坐堂 → 一个问题


  共有4106人关注过本帖树形打印复制链接

主题:一个问题

帅哥哟,离线,有人找我吗?
xiaochongsm97
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:62 积分:594 威望:0 精华:0 注册:2022/10/1 17:58:00
一个问题  发帖心情 Post By: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
详细错误信息:
未将对象引用设置到对象的实例。
不知道是什么原因

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105479 积分:536386 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/12/4 20:01:00 [只看该作者]


 回到顶部