标签：控件 ListView V7.3 RowIndex 单元格 LV 修改 txt

前面的博客是通过脚本修改指定单元格的数据，有时候我们要修改的数据事先不知道是第几行，这时我们就多做一部分工作了。假设我们需要修改某一行第四列的数据，数据由用户输入。画面上有一个ListView控件，名字叫做LV，一个静态文本，名字叫做RowIndex（用于存放行序号），一个输入输出域（输入类型），名字叫做txt，用于用户输入，一个按钮，用于修改数据。假设ListView已经装入了数据。我们在ListView控件属性勾选FullRowSelect属性。在ListView控件的ItemClick事件中添加以下vbs脚本：

Sub ItemClick(ByVal Item,  ByRef ObjectItem)            
Dim LV,txt,RowIndex,CtrlRowIndex
Set LV=ScreenItems("LV")
Set txt=screenitems("txt")
Set ctrlRowIndex=screenitems("RowIndex")
RowIndex=LV.SelectedItem.Index
txt.OutputValue =LV.listitems.item(RowIndex).listsubitems.item(4)
ctrlRowIndex.Text=RowIndex
End Sub

上述脚本就把当前行序号和第四列数值存入相应的控件。

画面上修改按钮的鼠标点击事件添加以下vbs脚本：

Sub OnClick(ByVal Item)         
Dim LV,txt,ctrlRowIndex,RowIndex
Set LV=ScreenItems("LV")
Set ctrlRowIndex=ScreenItems("RowIndex")
Set txt=ScreenItems("txt")
RowIndex=CInt(ctrlRowIndex.Text)
LV.listItems.item(RowIndex).ListSubitems.item(4)=txt.InputValue
End Sub

保存运行项目，当点击某一行时，就会记录行序号和第四行数值，如果修改输入输出域然后点击修改按钮，就会用输入的数据来修改该行第四列数据。实际使用中，可以先判断是不是一个空的ListView，如果是空的，就没必要修改了。

标签：控件,ListView,V7.3,RowIndex,单元格,LV,修改,txt
来源： https://www.cnblogs.com/fishingsriver/p/14360822.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。