if (open<0 or close<0 or high<0 or low<0)
str1=str1+"今日价格 小于0,";
if (open>high or close>high or low>high or open<low or close<low or high<low)
str1=str1+"今日价格数据有误"+" O"+text(open)+", C"+text(close)+", H"+text(high)+", L"+text(low);
if (vol<0)
str1=str1+"今日成交量 小于0,";
if (Openint<0)
str1=str1+"今日持仓量 小于0,";
For i = 1 To Barcount-1 //从上一根k线 回溯到历史第一根k线 做上面同样的检查
{
if (open<0 or close<0 or high<0 or low<0)
str1=str1+datetostring(date)+"价格 小于0,";
if (open>high or close>high or low>high or open<low or close<low or high<low)
str1=str1+datetostring(date)+"价格数据有误"+" O"+text(open)+", C"+text(close)+", H"+text(high)+", L"+text(low);
if (vol<0)
str1=str1+datetostring(date)+"成交量 小于0,";
if (Openint<0)
str1=str1+datetostring(date)+"持仓量 小于0,";
}