- 金字塔客服中心 - 专业程序化交易软件提供商 (http://weistock.com/bbs/index.asp)
-- 高级功能研发区 (http://weistock.com/bbs/list.asp?boardid=5)
---- 空数据问题 (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=145219)
-- 发布时间：2016/12/23 21:49:23
-- 空数据问题
Grid.LockTimeSectStart =startdate
Grid.LockTimeSectEnd = endDate
Grid.LockTimeSectEnd = endDate
我用这个限定 窗格显示的日期范围，我想 如果该日期内没有k线数据 ，能有属性可以知道，
我用 datacount showcount startshowindex 都不行，请问有什么办法？
-- 发布时间：2016/12/25 20:26:35
--
想了个复杂绕了个圈子去完成，最后判断n=1就表示有数据，0就表示中间都是空数据
Set Grid = Technic.GetGridByName("Main")
startdate = "2016/10/01"
enddate = "2016/10/09"
dim n
Grid.LockTimeSect = 1
Grid.LockTimeSectStart =startdate
Grid.LockTimeSectEnd = enddate
n =0
\'开始结束日期的差
date_num = DateDiff("d",startdate, enddate)
\'轮询把日期转换成序列再转换回来，然后判断对应序列日期是否匹配。
for i=0 to date_num
date_ad = DateAdd("d", i, startdate)
num = Grid.PosByDate(date_ad)
if FormatDateTime(Grid.DateBypos(num),1) = FormatDateTime(date_ad,1) then
n=1
exit for
end if
next
application.MsgOut n
Grid.ReInitDataFormula
Sub APPLICATION_VBAEnd()
Grid.LockTimeSect = 0
End Sub
-- 发布时间：2016/12/26 9:29:44
--
我试试， 真够复杂的