主题：怎样判断Grid或HistoryData中要取的k线数据是不是存在？

function AAA(sDate)
Set Grid = Technic.GetGridByName("Main")

AAA=0

'得到该窗格所对应的对象
Set History = Grid.GetHistoryData()

for i = 0 to History.Count-1
    'Application.MsgOut History.Date(i)

     abc=History.Date(i) 

     if Cdate(sDate)=Cdate(abc) then

         AAA=1

        exit for

     end if
next

End function

'以上是我根据王峰的代码给你做出来的现成的函数，你只要传递要判断的日期，如果有该日期的行情，就返回1，否则返回0

'调用方法 :

    vvv=aaa("2014-04-09")