欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 9点15分出错

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有3202人关注过本帖树形打印复制链接

主题：9点15分出错
帅哥哟，离线，有人找我吗？
黄金精算师
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：黑侠 帖子：836 积分：0 威望：0 精华：0 注册：2014/12/26 11:47:55 		9点15分出错  发帖心情 Post By：2016/5/5 9:22:08 [只看该作者]

帮看一下，这段程序那里不对
我第二次在盘中突然报错
Sub TestReportData()                                                               ' 取行情数据
    
    set report1=marketdata.getreportdata("IF09","ZJ")
     bk_TextBox2.text=report1.NewPrice
     bk_TextBox1.text=report1.buyprice1
     bk_TextBox3.text = report1.sellprice1 
     
     set report1=marketdata.getreportdata("SH300","ZJ") 
    bk_TextBox14.text=report1.NewPrice
    
     bk_TextBox11.text= ROUND((bk_TextBox7 - bk_TextBox2) * 300 ,4)    '利润
     
     bk_TextBox12.text=ROUND((bk_TextBox2 - bk_TextBox14) / bk_TextBox14  ,4)     '   报错后指向这一行程序，这段程序也是我在论坛里问过很多次那个小数点的事
     bk_TextBox21.text=  ROUND(bk_TextBox12*bk_TextBox14*300,1)     '到期利润

这是在运行中出错的提示，出错时间应该是刚进入9点15分，在开盘前，这是第二次出错，这一次，怎么都开不了金字塔软件查到最后也没有找到原因，后面就不明不白的好了

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20160505091858.bmp
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
黄金精算师
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：黑侠 帖子：836 积分：0 威望：0 精华：0 注册：2014/12/26 11:47:55 		  发帖心情 Post By：2016/5/5 9:24:35 [只看该作者]

这个程有两段，下面这一段好像一直与上面的结果不同
这是下面一半
这两个代码方式是一样的，一个做的IF09一个做的IC09
 
' ------------------
    
    set report1=marketdata.getreportdata("IC09","ZJ")
'    application.msgout Cdate(time) & ",IC09最新价:" &report1.NewPrice & ",买1价:"&report1.buyprice1&",卖1价:"&report1.sellprice1
    
     bk_TextBox5.text=report1.NewPrice
     bk_TextBox4.text=report1.buyprice1
     bk_TextBox6.text = report1.sellprice1
     
     set report1=marketdata.getreportdata("SH905","ZJ") 
    bk_TextBox13.text=report1.NewPrice
'    
'     bk_TextBox15.text=  bk_TextBox5*200 - 200*bk_TextBox19    '利润
     bk_TextBox15.text= ROUND((bk_TextBox5 - bk_TextBox19) * 200 ,4)   '利润
     bk_TextBox20.text= ROUND((bk_TextBox5 - bk_TextBox13) / bk_TextBox13 ,4)    '贴水
     bk_TextBox22.text=  ROUND((bk_TextBox13-bk_TextBox5)*200,1)     '到期利润
    
    
    bk_TextBox23.text= bk_TextBox15.text*-1
    bk_TextBox24.text= bk_TextBox23.text*-1
'    ---------------------
 回到顶部
帅哥哟，离线，有人找我吗？
黄金精算师
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：黑侠 帖子：836 积分：0 威望：0 精华：0 注册：2014/12/26 11:47:55 		  发帖心情 Post By：2016/5/5 9:26:58 [只看该作者]

是不是因为在数据切入行情时这里不能去读取数据？我这次出错是在运行中突然中断的，再进入一切正常

 回到顶部
帅哥哟，离线，有人找我吗？
yukizzc
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：21598 积分：0 威望：0 精华：1 注册：2010/7/31 16:35:30 		  发帖心情 Post By：2016/5/5 9:29:27 [只看该作者]

某个数值取到了0值，你用msgout把被除数都做下输出，自己查下是哪个数值的问题吧

 回到顶部
帅哥哟，离线，有人找我吗？
王锋
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：罗宾汉 帖子：11808 积分：20695 威望：0 精华：10 注册：2009/8/18 8:15:13 		  发帖心情 Post By：2016/5/5 9:30:42 [只看该作者]

 从描述上看是除零错误，就是除数是0导致的。

有可能是开盘前很多价格都是0，你没有去检查就直接去除导致的

金字塔—专业程序化软件提供商

金字塔-技术部

-----------------------------------------------------------------------------------------------------

工作时间:周一至周五 08:30 - 17:30   周末及法定节假日休息

Email:service@weistock.com
 回到顶部
帅哥哟，离线，有人找我吗？
黄金精算师
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：黑侠 帖子：836 积分：0 威望：0 精华：0 注册：2014/12/26 11:47:55 		  发帖心情 Post By：2016/5/5 10:46:39 [只看该作者]

谢谢，
写了一行除0的确实现像一样 bk_TextBox32.text=  bk_TextBox23.text/0

这样有什么好的处理办法吗，还是一定要加IF语句处理？

 回到顶部
帅哥哟，离线，有人找我吗？
黄金精算师
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：黑侠 帖子：836 积分：0 威望：0 精华：0 注册：2014/12/26 11:47:55 		  发帖心情 Post By：2016/5/5 10:46:51 [只看该作者]

谢谢，
写了一行除0的确实现像一样 bk_TextBox32.text=  bk_TextBox23.text/0

这样有什么好的处理办法吗，还是一定要加IF语句处理？

 回到顶部
帅哥哟，离线，有人找我吗？
黄金精算师
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：黑侠 帖子：836 积分：0 威望：0 精华：0 注册：2014/12/26 11:47:55 		  发帖心情 Post By：2016/5/5 10:47:03 [只看该作者]

谢谢，
写了一行除0的确实现像一样 bk_TextBox32.text=  bk_TextBox23.text/0

这样有什么好的处理办法吗，还是一定要加IF语句处理？

 回到顶部
帅哥哟，离线，有人找我吗？
王锋
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：罗宾汉 帖子：11808 积分：20695 威望：0 精华：10 注册：2009/8/18 8:15:13 		  发帖心情 Post By：2016/5/5 11:23:50 [只看该作者]

要加IF判断处理，VBA编程不像PEL，很多东西需要自己去考虑，编写代码要考虑代码的健壮性

金字塔—专业程序化软件提供商

金字塔-技术部

-----------------------------------------------------------------------------------------------------

工作时间:周一至周五 08:30 - 17:30   周末及法定节假日休息

Email:service@weistock.com
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.09375 秒, 5 次数据查询