主题：[求助]ListView 标题多行控制

For idx As Integer = idx1 To idx2

    Dim dr As Row = Tables(Vars("表A")).Rows(idx)

    Dim Key As String = dr("产品效果图") '获取此员工的照片文件

    lvw.Images.AddLargeImage(Key,Vars("IP") & Key) '添加照片,直接用文件名作为图片键值

    Dim vr As  WinForm.ListViewRow =  lvw.Rows.Add() '增加一行

    vr.Text = dr("产品编号") & dr("产品名称")   '设置标题

        vr.ImageKey = Key '设置图片键值

    vr.Tag = dr

Next

希望增加2行

不行  

要怎样调整代码

For idx As Integer = idx1 To idx2

    Dim dr As Row = Tables(Vars("表A")).Rows(idx)

    Dim Key As String = dr("产品效果图") '获取此员工的照片文件

    lvw.Images.AddLargeImage(Key,Vars("IP") & Key) '添加照片,直接用文件名作为图片键值

    Dim vr As  WinForm.ListViewRow =  lvw.Rows.Add() '增加一行

    vr.Text = dr("产品编号") & dr("产品名称")   '设置标题

    Dim vr1 As  WinForm.ListViewRow =  lvw.Rows.Add() '增加一行

    vr1.Text = dr("产品编号") & dr("产品名称")   '设置标题

    vr.ImageKey = Key '设置图片键值
此主题相关图片如下：qq截图20140917143500.png

    vr.Tag = dr

结果不对哦上面的代码是另外有一个图标位置出来了

需求是并排两行文字