拉好宽度以后,你可以用加入空的值去把图表顶到右边。
Dim i As Integer = 0
For Each dr As DataRow In DataTables("员工").DataRows '从数据表中提取数据
Dim vr As WinForm.ListViewRow
If i > 0 AndAlso i < 5 Then
lvw.Rows.Add() '增加一行
lvw.Rows.Add() '增加一行
lvw.Rows.Add() '增加一行
lvw.Rows.Add() '增加一行
i = 5
End If
vr = lvw.Rows.Add() '增加一行
vr.Text = dr("姓名") '设置标题
If dr("性别") = "男" Then '设置分组
vr.ImageKey = "Man"
Else
vr.ImageKey = "Woman"
End If
vr.Tag = dr '将DataRow赋值给ListViewRow的Tag属性,方便以后调用.
i += 1
Next