ListView和数据表的互动
修改 按钮代码设置
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim
vr As WinForm.ListViewRow = lvw.Current
'获取ListView的当前行
If
vr Is Nothing Then
'如果不存在当前行,也就是内有选定任何一行
Return
End If
Dim dr As DataRow = vr.tag
'获取此行对应的DataRow
Dim
ps As Integer =
Tables("员工").FindRow(dr)
If
ps >= 0 Then
Tables("员工").Position = ps
Forms("员工信息").Open
For Each
cl As WinForm.ListViewColumn In lvw.Columns
'逐列更新值
vr(cl.Name) = r(cl.Name) -----------------》此处应为 dr(cl.Name)
Next
End
If