Sub Fratrad1_executebutton1_Click()
dim count
dim exce1
dim HistroyData
dim AC
dim STOCK
set AC=1698
set STOCK=IF08
if OptionButton1.check is true then
set fx.value=1
end if
if OptionButton2.check is true then
set fx.value=0
end if
if OptionButton3.check is true then
set kp.value=1
end if
if OptionButton4.check is true then
set kp.value=1
end if
order.OrderQueue = 1
Set HistroyData = marketdata.GetHistoryData(STOCK,AC,0)
'Set report2 = marketdata.GetReportData(Fratrad1_report2.text,Fratrad1_report2market)
count=zgds.value
'多开
if fx.value=1 and kp.value=1 then
for i = 0 to count-1
call ORDER.TBUY(1,1,HistroyData+100*i,0,0,AC,STOCK)
end if
'多平
if fx.value=1 and kp.value=0 then
for i = 0 to count-1
call ORDER.TSELL(1,1,HistroyData+100*i,0,0,AC,STOCK)
end if
'空开
if fx.value=0 and kp.value=1 then
for i = 0 to count-1
call ORDER.TSELL(1,1,HistroyData-100*i,0,0,AC,STOCK)
end if
'空平
if fx.value=0 and kp.value=0 then
for i = 0 to count-1
call
ORDER.TBUY(1,1,HistroyData-100*i,0,0,AC,STOCK)
end if
End Sub
Sub Fratrad1_Load()
End Sub
我怀疑是语法错误，但是看了好久好几个人看了，没有发现问题
for i = 0 to count-1
call order.Buy(1,1,HistroyData+100*i,0,0,AC,STOCK)
next
1、vb的for语法要跟上next的，这部分你可以百度vba for然后看下
2、vba的报单是order.Buy(1,1,0,0,"IF08","ZJ","") 请按照这个格式去完成你的参数那边全都乱了。
3、其他问题还没看到，建议您先把后面的命令全部注释掉，集中先把一个开仓指令完成正确后再加入其他的
我做的界面中有执行按钮，实现执行，我写的有执行函数