在MS lsitview 中显示数据

2019年6月11日上午10:50 • SIMATIC WinCC

先说几个例子吧：
1、在http://www.ad.siemens.com.cn/service/answer/solution.asp?Q_id=29863&cid=1032中介绍的方法，自己试了一上，没成功。代码一样，肃然变量名是变了地。
2、照着深入浅出winccV6上面的做，可以显示出来结果，也对，但是添加的只是单行单列，而且，如果是多列时，添加的行只是一列，并不象原来的行一样是多列。而且只提示有三个方法。对一行中的一列怎么进行读写呢？怎样使添加的一行是多列。Listview_1.AddItem有两个参数，第一个是所添加的项，第二个是一个索引标志，怎么用还不是很清楚。试了一下，没成功！！
3、’listview1.ColumnHeaders.Field(1).Value=RecordSetObj.Fields(2).Name
‘listview1.ColumnHeaders.Field(2)=RecordSetObj.Fields(0).Name
‘listview1.ColumnHeaders.Field(3)=RecordSetObj.Fields(1).Name
‘listview1.ColumnHeaders.Field(4)=RecordSetObj.Fields(34).Name
/.///////////////////////////////////////
‘Set oitem=listview1.ListItems.Add()
‘oitem.SubItems(1)=CStr(RecordSetObj.Fields(0).Value)
‘oitem.SubItems(2)=CStr(RecordSetObj.Fields(1).Value)
‘oitem.SubItems(3)=CStr(RecordSetObj.Fields(34).Value)
////////////////////////////////////////////////////////////////////////
‘set oitem=listview1.ListItems.Add()
‘oitem.SubItems(1)=RecordSetObj.Fields(0).Name
‘oitem.SubItems(2)=RecordSetObj.Fields(1).Name
‘oitem.SubItems(3)=CRecordSetObj.Fields(34).Name
还有下面的尝试都不成功：
‘listview1.ColumnHeaders.Add , "id",RecordSetObj.Fields(index).Name, (listview1.Width) \ 5
上面的以///////////////////////////////分隔的为一个尝试。
要求：不知道哪位高手可不可以给出一个对Listbox的读写片段，包括对一行的各个列的访问即读写，多谢！！！

最佳答案

勉强帮你写了一段，试试看可以不？

Const lvwreport = 3
Dim ListView1,mItem
Set ListView1=ScreenItems("ListView1")
ListView1.view=lvwreport
ListView1.columnheaders.clear
ListView1.columnheaders.add 1,"","ID",ListView1.width/8
ListView1.columnheaders.add 2,"","用户名",ListView1.width/8
ListView1.columnheaders.add 3,"","联系电话",ListView1.width/4
ListView1.columnheaders.add 4,"","地址",ListView1.width/2

Set mItem = ListView1.ListItems.Add
mItem.Text = "ID1"
mItem.SubItems(1) = "DCOUNT"
mItem.SubItems(2) = "010-10010000"
mItem.SubItems(3) = "中国北京"

Set mItem = ListView1.ListItems.Add
mItem.Text = "ID2"
mItem.SubItems(1) = "XXX"
mItem.SubItems(2) = "021-10010000"
mItem.SubItems(3) = "中国上海"

至于你的问题，很难说是哪的问题，用GSC诊断一下，多加些Trace语句。

提问者对于答案的评价：
基本上也没做什么改变呵呵，和在VB里做的差不多一样，做了一下，没做出来，哎，不知道你的行不行。多谢了！！！

原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc274540.html

在MS lsitview 中显示数据

相关推荐