以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 关于ListViewRow代码的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146265) |
-- 作者:hongye -- 发布时间:2020/2/20 13:51:00 -- 关于ListViewRow代码的问题 Dim vr As WinForm.ListViewRow = lvw.Rows.Add() \'增加一行 For Each cl As WinForm.ListViewColumn In lvw.Columns \'逐列取值 If cl.Name = e.Form.Controls(cl.Name).name Then vr(cl.Name) = e.Form.Controls(cl.Name).Value Else vr(cl.Name) = "" End If Next 都写了如果数据组和名称相同才等于控件里的数值,如果没有,对应ListView列的值等于“”,为什么还出错?
|
-- 作者:hongye -- 发布时间:2020/2/20 14:02:00 -- 问题解决了 If e.Form.ExistControl(cl.Name) Then vr(cl.Name) = e.Form.Controls(cl.Name).Value Else vr(cl.Name) = "" End If |