建立一自定义函数如下：
Function testcover(Formula)
call order.Buy(1,3,0,0,"J09","DQ","",0)
testcover=0
End Function
-------------------------------------------------------
建立一程序：
runmode:1;
TESTCOVER();
-------------------------------------------------------
直接执行，可以下。用后台模式，则不行。难道是因为后台是用tbuy？但是vba没tbuy？后台不能调用vba来下单？
后台和VBA是两个体系的，VBA下单是VBA的，后台下单是后台的，两个不能一起用
那这么说的话，如果是后台模式，我又想对下单进行优化，是比较困难的了？
例如我想下单1秒不成功后撤单再下，由于tbuy好像是没返回值，没法知道是否成功，所以没法作这个判断（又由于是多模型所以也不能从账户的手数来判断）
当然我知道金字塔可以设置再追，我只是举一个例子。更复杂的做法光用设置那里是不够的