以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]模拟单击问题！！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66884)
--  作者：liuxianjie1980
--  发布时间：2015/4/15 15:50:00
--  [求助]模拟单击问题！！
在窗口设计过程中引用“e.Form.Controls("btnShow").PerformClick”，预览时提醒“没有找到控件”，是什么意思？
--  作者：有点酸
--  发布时间：2015/4/15 15:57:00
--  
控件名错了，不是btnShow
--  作者：liuxianjie1980
--  发布时间：2015/4/15 16:04:00
--  

那帮助中的listview实例十五的控件名是哪一个？是可能是“显示”这个空间了啊？
--  作者：狐狸爸爸
--  发布时间：2015/4/15 16:08:00
--  

我用示例十五测试，没有问题，这个例子的AfterLoad事件最后一行代码就是：

e.Form.Controls("btnShow").PerformClick \'模拟单击显示按钮,显示第一页数据

 

说明没有问题。

 

你把这行代码写在哪个事件中？
--  作者：liuxianjie1980
--  发布时间：2015/4/15 16:47:00
--  
不好意思，我自己写错位置了。
--  作者：liuxianjie1980
--  发布时间：2015/4/15 16:50:00
--  
顺别请教：我用一个“删除”按钮在分类式的listview可以在选定某行数据后，点击“删除”按钮可以删除，为什么在这种类似实例十五的窗口中无法删除呢？
--  作者：Bin
--  发布时间：2015/4/15 16:52:00
--  
一样可以的，具体如何不行，请上例子．
--  作者：liuxianjie1980
--  发布时间：2015/4/15 16:58:00
--  

描述如下：

采用分页形式的listview，代码如实例十五，只是更改了列名。

 

在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
If dr("登记人")=user.name Or user.name= "开发者" Then
    Dim Result As DialogResult
    Result = MessageBox.Show("您确定要删除吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        dr.Delete \'从DataTable删除行
        vr.Delete
    Else
        Return
    End If
End If

 

这段代码在其他类型的listview中可以实现删除，单单就是这个不行！！

 

系统提示：未将对象引用设置到对象的实例。

[此贴子已经被作者于2015/4/15 16:59:58编辑过]
--  作者：狐狸爸爸
--  发布时间：2015/4/15 16:58:00
--  

楼主继续往下看帮助，帮助有例子：

http://www.foxtable.com/help/topics/2782.htm

 

当你使用某个功能的时候，应该现将这部分帮助看完，可以少走很多弯路。
--  作者：liuxianjie1980
--  发布时间：2015/4/15 17:02:00
--  
我用的就是这个案例的代码，所以感到诧异！！