主题：ListView问题

如下是帮助文件ListView和数据表的互动

的内容，

3、将ListView的RowActivate事件代码设置为：

Dim btn As WinForm.Button = e.Form.Controls("btnEdit")
btn.PerformClick()

搞不懂为什么双击行可以打开“员工信息”窗口，btnEdit是如何和“员工信息”建立联系的哪？帮助文件没写清楚呀。

 

 

 已经写了

 

修改

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)     Next End If

还是搞不明白，两个例子，一个例子是 “btnEdit” 打开的是“员工信息”窗口，另一各例子是“btnModify"打开的是 “国家信息”窗口，Edit 和Modify和窗口的关系在哪体现？

Dim btn As WinForm.Button = e.Form.Controls("btnEdit")
btn.PerformClick()

 

 回复3楼，关键是去看对应按钮的代码，比如2楼的按钮代码。

 

 定位到员工对应的行，打开窗口，自然显示的是此行的数据。

 

Dim dr As DataRow = vr.tag '获取此行对应的DataRow
Dim ps As Integer = Tables("员工").FindRow(dr)

 

谢谢甜版主，我试着做了示例，报错“找不到名为btnEdit的控件“

这个应该是单击listview的时候,模拟单击了一个按钮,这个按钮应该是隐藏的.你检查下

 

错误提示很明显，代码使用了名为btnEdit的控件，实际上却不存在这个控件。

开发指南里的例子就是这样的，这也是我一直在问的问题，btnEdit的空间在哪？

有个 e.Form.Controls("btnEdit") 按钮控件, 里面有打开窗口代码

我晕了，又回到我的第一个问题了，看了开发指南里的listview示例18，说明、代码也都看来，e.form.controls("btnEdit") 里面打开窗口的代码在哪？