主题：[求助]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

dr.Locked = False

dr.Delete '从DataTable删除行

vr.Delete '从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

dr.Locked = False

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) = dr(cl.Name)

    Next

End If