Sub STARTKG_myallp_Click()
if startkg_marketdm.text=""then
mymarket="zj"
else
mymarket= startkg_marketdm.text
end if
if startkg_codedm.text="" then
mycode="if00"
else
mycode= startkg_codedm.text
end if
dim buyHolding
buyHolding=order.GetTholding(mycode,mymarket,"",-1)
msgbox(buyHolding)
End Sub
mycode这边用if02。
holding2这里显示的是你持仓品种数量,而不是持仓量