老师, listview17的例子问题,在网络状态下,这个行数是随时变动,应该怎么写才好呢?
增加按钮
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim r As Row = Tables("员工").AddNew()
Dim cnt As Integer = DataTables("员工").DataRows.Count '记录打开窗口前的行数
Forms("员工信息").Open()
If DataTables("员工").DataRows.Count = cnt '如果新增行已经保存
Dim vr As WinForm.ListViewRow = lvw.Rows.Add()
For Each cl As WinForm.ListViewColumn In lvw.Columns '逐列取值
vr(cl.Name) = r(cl.Name)
Next
If r("性别") = "男" Then '设置分组
vr.ImageKey = "Man"
Else
vr.ImageKey = "Woman"
End If
vr.Tag = r.DataRow '将DataRow赋值给ListViewRow的Tag属性,将二者联系起来
End If