三a级做爰片免费观看玉蒲团,伊人久久亚洲综合av影院,午夜永久免费爽爽爽影院,西川唯久久久久久久综合

ucooper
級(jí)別: *
精華主題: * 篇
發(fā)帖數(shù)量: * 個(gè)
工控威望: * 點(diǎn)
下載積分: * 分
在線時(shí)間: (小時(shí))
注冊(cè)時(shí)間: *
最后登錄: *
查看ucooper的 主題 / 回貼
樓主  發(fā)表于: 2010-10-09 22:49
之前做項(xiàng)目的時(shí)候,查閱了大量資料,終于解決了將歸檔數(shù)據(jù)寫入listviews控件的功能,這里將我的代碼發(fā)出來(lái)以供參考。注意,里面的一些參數(shù)需要根據(jù)你的具體需要進(jìn)行修改。
本人還總結(jié)了一份技術(shù)文檔,由于這里不能上傳上傳文檔,請(qǐng)到我的個(gè)人博客里下載吧:
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為報(bào)表樣式
        oList.GridLines  =True    //顯示網(wǎng)格
        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

午夜成人免费观看福利片| 午夜福利小电影| 操人人鲁蜜月a| 夜夜嗨av涩爱av蜜臀| 亚洲 成人久久综合 社区| jk少萝 白丝黄色操逼| 免费在线观看不卡av片| 成人自拍小视频在线观看| 四虎永久在线精品免费看| 嗯阿阿慢一点艹死我视频| 美女扣自己小穴视屏网站| 高清性做爰伦理| 国产色婷婷视频在线观看| 中文字幕大香视频蕉免费| 亚洲成a人v片在线观看| 中文字幕第一页在线播放| 99热精品在线播放观看| 全是白丝JK自慰污网站| 美女穴穴戳鸡吧在线观看| 操逼呻吟喷水视频无遮挡| 国产又湿又黄又硬又刺激| 秋霞午夜成人久久电影网| 国产污网站免费| 能看的激情黄色亚洲色图| 久青草无码视频在线观看| 日本久久久久久级做爰片| 丰满白嫩尤物啪啪嗯…啊| 黑人啪啪动态图| 日韩AV第二页| 久久亚洲精品无码av网| 成人久久久久久久久久网站| 大鸡吧日逼视频| 国产操嗨艹技师| 操女生喷水视频| 欧美小黄片在线免费观看| 色综合久久最新中文字幕| 午夜影院性爱富婆高潮流| 久久免费看视频少妇高潮| 艹内蒙古女人逼视频旅店| 综合亚洲无码另类mp4| 国产精品一区二区三区四|