无码精品人妻一区二区三区入口-无码精品人妻一区二区三区夜夜嗨-无码精品人妻一区二区三区颖A片-无码精品日本一区二区桃花岛-无码精品网站-无码精品一

ucooper
級別: *
精華主題: * 篇
發帖數量: * 個
工控威望: * 點
下載積分: * 分
在線時間: (小時)
注冊時間: *
最后登錄: *
查看ucooper的 主題 / 回貼
樓主  發表于: 2010-10-09 22:49
之前做項目的時候,查閱了大量資料,終于解決了將歸檔數據寫入listviews控件的功能,這里將我的代碼發出來以供參考。注意,里面的一些參數需要根據你的具體需要進行修改。
本人還總結了一份技術文檔,由于這里不能上傳上傳文檔,請到我的個人博客里下載吧:
http://www.ucooper.com/wincc-summary.html

Sub  OnLButtonDown(ByVal  Item,  ByVal  Flags,  ByVal  x,  ByVal  y)
Dim  sPro,sDsn,sSer,sCon,sSql,oRs,conn,oCom,oItem,m,  n,  s,i,oList
sPro  =  "Provider=WinCCOLEDBProvider.1;"
sDsn  =  "Catalog=CC_tanks_09_07_14_10_38_56R;"
sSer  =  "Data  Source=.\WinCC"
sCon  =  sPro  +  sDsn  +  sSer
sSql  =  "TAG:R,'tanks\aa','2009-07-16  00:00:00','2009-07-17  00:00:00'"
MsgBox  "Open  with:"  &  vbCr  &  sCon  &  vbCr  &  sSql  &  vbCr
Set  conn  =  CreateObject("ADODB.Connection")
conn.ConnectionString  =  sCon
conn.CursorLocation  =  3
conn.Open
Set  oRs  =  CreateObject("ADODB.Recordset")
Set  oCom  =  CreateObject("ADODB.Command")
oCom.CommandType  =  1
Set  oCom.ActiveConnection  =  conn
oCom.CommandText  =  sSql
Set  oRs  =  oCom.Execute
n=oRs.RecordCount
MsgBox(n)
Set  oList  =  ScreenItems("控件1")
        oList.ListItems.Clear
        olist.ColumnHeaders.clear
        oList.View  =3    //顯示樣式,3為報表樣式
        oList.GridLines  =True    //顯示網格
        olist.ColumnHeaders.Add,  ,  CStr(oRs.Fields(0).Name),150
        oList.ColumnHeaders.Add,  ,  CStr(oRs.Fields(1).Name),150
        oList.ColumnHeaders.Add,  ,  CStr(oRs.Fields(2).Name),150
        oList.ColumnHeaders.Add,  ,  CStr(oRs.Fields(3).Name),150
        oList.ColumnHeaders.Add,  ,  CStr(oRs.Fields(4).Name),150
        'ListView1.ColumnHeaders.Add,  ,  CStr(oRs.Fields(3).Name),150    
        If(n>0)  Then
          oRs.MoveFirst
        End  If
        m  =  0
        Do  While  Not  oRs.EOF
                  m  =  m  +  1
                  Set  oItem  =  oList.ListItems.Add()
                        oItem.text=CStr(oRs.Fields(0).value)
                        '  oItem.SubItems(1)="bb"
                        '  oItem.SubItems(2)="cc"
                        oItem.SubItems(1)  =  CStr(DateAdd("h",  -8,oRs.Fields(1).value))
                        oItem.SubItems(2)  =  CStr(oRs.Fields(2).value)
                        oItem.SubItems(3)  =  CStr(oRs.Fields(3).value)                      
                        oItem.SubItems(4)  =  CStr(oRs.Fields(4).value)
                        '  oItem.Text  =  Left(CStr(oRs.Fields(1).Value),  23)
                        '  oItem.SubItems(1)  =  FormatNumber(oRs.Fields(2).Value,  4)
                        '  oItem.SubItems(2)  =  Hex(oRs.Fields(4).Value)
                          If  m  >  100  Then  
                                Exit  Do  
                            Else  
                          End  If
                          oRs.MoveNext
          Loop      
         MsgBox("wwwww")
oRs.Close
Set  oRs  =  Nothing
conn.Close
Set  conn  =  Nothing  
End  Sub

主站蜘蛛池模板: 五月花精品视频在线观看 | 一本道无码道在线 | 精品无码一区二区三区水蜜桃承传 | 久久久99久久久国产自输拍 | 国产91精品一区二区麻豆国产 | 国产午夜福利片1000无码 | 欧美重囗味成人无码区 | 91麻豆国产高清产精 | 国产一三区A片在线播放 | 免费的中国黄网站大全 | 国产成人精品免费播放视频 | 欧美一区二区三区久久 | 国产超级a在线播放久日本 国产超级va在线观看 | 九九国产精品视频 | 精品亚洲国产成人A片在线观看 | 成年午夜免费a | 国产午夜福利在线视频 | 国产精品91四虎不卡 | 牛牛精品国产亚洲一区二区三区 | 动漫av纯肉无码av电影网 | 精品无码专区网站 | 国产无码传媒在线观看 | 97色伦午夜国产亚洲精品 | 国产成人精品女人久久久国产suv | 欧美激情视频观看一区 | 激情国产一区二区三区 | a级特黄大片24在线 a级特黄特黄毛片在线播放 | 国产综合久久精品东京热中 | 久久国产主播福利在线 | 日本国产美国日韩欧美mv中文字 | 国产高潮又爽又刺激的视频 | jizz国产 | 全黄H全肉短篇禁乱NP慕浅浅 | 91国偷自产一区二区三区老熟女 | 日韩精品人妻无码久久影院 | 亚洲国产另类无码日韩 | 亚洲 自拍色综合图区 | 婷婷在线视频国产综合 | 国产av午夜精品一区二区三区 | 第一福利视频 | 99精品一区二区三区无码吞精 |