回复：新手求助！！SPreadsheet的使用！！-技术论坛-工业支持中心-西门子中国

回复：新手求助！！SPreadsheet的使用！！

齐物自忘情

帖子

28
精华

0
被关注

0

论坛等级：游民

注册时间：2018-01-16

普通如何晋级?

发布于 2018-09-24 20:40:29

2楼

展开查看

以下是引用zhangli0在2018-09-24 16:18:39的发言 >1楼：

b.sheet1.cells(1,1)=a.value

先谢谢，也祝版主中秋节快乐！！

还是有问题：

     Set sSheet=ScreenItems("控件3")   '控件3是SPreadsheet

     oCom.CommandText = ssql
    Set oRs = oCom.Execute

   ' Msgbox oRs.Fields("VARIANTVALUE").Value   非注释能执行，值是7.05
     ' sSheet.sheet1.Cells(1, 2) = oRs.Fields("VARIANTVALUE").Value    这句非注释时，页面中SPreadsheet的表A,2中也没有值填入

   If (oRs.eof) Then
       oRs.Close

    Else
      Msgbox "AAA"   '执行了
        oRs.movefirst
        'i = oRs.RecordCount
        i=0
        Msgbox "BBB"                '执行
        Msgbox oRs.eOF            '执行
        Do While Not oRs.eOF
        'Msgbox eof                    '执行

        sSheet.sheet1.Cells(1, 1) = DateAdd("h", 8, CDate(oRs.Fields("TIMESTAMP").Value))   ‘没执行，
        sSheet.sheet1.Cells(1, 2) = oRs.Fields("VARIANTVALUE").Value   ’没执行
        oRs.Movenext
        i = i + 1
        Loop
        oRs.Close
    End If