請(qǐng)幫助在啟動(dòng)軟件時(shí)做一個(gè)股票池的彈框

作者：金字塔來(lái)源：cxh99.com 發(fā)布時(shí)間：2021年01月24日

咨詢內(nèi)容： ?請(qǐng)幫助在啟動(dòng)軟件時(shí)做一個(gè)股票池的彈框，確認(rèn)后再運(yùn)行股票池（不需要勾選股票池默認(rèn)自動(dòng)啟動(dòng)）。這個(gè)彈框，我主要是用來(lái)避免軟件啟動(dòng)時(shí)數(shù)據(jù)缺失而造成股票池胡亂交易，而如果不勾選軟件的股票池自動(dòng)啟動(dòng)選項(xiàng)又擔(dān)心開機(jī)忘記運(yùn)行股票池，所以才想在啟動(dòng)軟件做一個(gè)股票池運(yùn)行的確認(rèn)彈框。謝謝
[此貼子已經(jīng)被作者于2020/11/9 18:12:49編輯過(guò)]
?
?來(lái)源: CXH99.COM
金字塔客服：
我覺得數(shù)據(jù)問(wèn)題，你歷史補(bǔ)充好后每天做收盤這樣數(shù)據(jù)都是沒(méi)問(wèn)題的

如果是異常重啟，就像另一個(gè)帖子回復(fù)的重啟后首先就是補(bǔ)充當(dāng)日分筆

?
用戶回復(fù)： ?你沒(méi)看懂我上面要表達(dá)的意思
?
網(wǎng)友回復(fù)： 將這段代碼放到VBA的工程文檔里，推薦放到Global模塊中
Sub APPLICATION_Start()
?Set msgboxs = CreateObject("WWSCommon.MessageBoxEx")
?msgboxs.Button = 2
?msgboxs.IconType = 3
?rets = msgboxs.DoModal("是否啟動(dòng)股票池計(jì)算？","提示")
?If rets = 6 Then
??MarketData.StartStockPool()
?End If
End Sub

此主題相關(guān)圖片如下：tim截圖20180904181842.png

注意：開啟此功能前務(wù)必將股票池的自動(dòng)啟動(dòng)功能關(guān)閉掉

?
網(wǎng)友回復(fù)： ?ok了，謝謝