| 发表于:2007-01-27 22:05:49 楼主 |
根据数据库内容来添加listview的选项 代码如下,其中plansview为listvie控件 sub replans() '刷新listview列表 dim delplans as object for each delplans in plansview.items '此循环为清除现有项目 delplans.remove() next dim conn as new system.data.sqlclient.sqlconnection(getconnstr()) conn.open() dim sqlstr1 as string sqlstr1 = "select * from cop_plans " dim cmd as new system.data.sqlclient.sqlcommand cmd.commandtext = sqlstr1 cmd.connection = conn dim dread as system.data.sqlclient.sqldatareader dread = cmd.EXECutereader dim tempitem as object while dread.read() if dread.item( "p_ok ") = true then tempitem = plansview.items.add(dread.item( "id "), 1) else tempitem = plansview.items.add(dread.item( "id "), 2) end if tempitem.subitems.add(dread.item( "p_name ")) tempitem.subitems.add(dread.item( "p_mode ")) tempitem.subitems.add(dread.item( "p_cyc ")) tempitem.subitems.add(dread.item( "p_ip ")) tempitem.subitems.add(cstr(dread.item( "p_runtime "))) if dread.item( "p_ok ") = true then tempitem.subitems.add( "yes ") else tempitem.subitems.add( "no ") end if end while dread.close() conn.close() dread = nothing conn = nothing end sub 当每删除一条记录时就执行一次以上过程来刷新列表,问题如下: 1、仅仅删除数据库记录或者仅仅执行刷新过程不会出错 2、在删除记录然后立即执行刷新过程时时偶尔会出错,删除最后一行记录并刷新列表时一定出错。 这样我估计是以下代码的问题 dim delplans as object for each delplans in plansview.items delplans.remove() next 请教各位了. 出错提示如下: 未处理的“system.argumentoutofrangeexception”类型的异常出现在 system.windows.forms.dll 中。 其他信息: 指定的参数已超出有效值的范围。 |
|
|
|
|