ChangeAnalysisSettings()
Function ChangeAnalysisSettings()
DS.Script.SelectItems(" " + branchSettings.ID)
For ii=1 To DS.Script.lv.GroupCount Step 1
DS.Script.lv.FindGroup(ii).Expand =true
Next
numStepStr = DS.Script.localString("ID_SolutionStepNumberOfSteps")
ListView.ActivateItem(numStepStr)
numSteps = ListView.ItemValue
DS.Script.lvUpdateProps()
DS.Script.fillTree()
For ii=1 To DS.Script.lv.GroupCount Step 1
DS.Script.lv.FindGroup(ii).Expand =true
Next
try
For jj=numSteps To 1 Step -1
stepNumStr = DS.Script.localString("ID_StepNumber")
ListView.ActivateItem(stepNumStr)
ListView.ItemValue =""+jj
DS.Script.lvUpdateProps()
DS.Script.lvWin_OnChange()
DS.Script.fillTree()
For ii=1 To DS.Script.lv.GroupCount Step 1
DS.Script.lv.FindGroup(ii).Expand =true
Next
ListView.ActivateItem(stepNumStr)
ListView.ItemValue =""+jj
ListView.ActivateItem("Step End Time")
ListView.ItemValue =""+jj
ListView.ActivateItem("Auto Time Stepping")
ListView.ItemValue ="Off"
ListView.ActivateItem("Define By")
ListView.ItemValue ="Substeps"
ListView.ActivateItem("Number Of Substeps")
ListView.ItemValue =""+1
For ii=1 To DS.Script.lv.GroupCount Step 1
DS.Script.lv.FindGroup(ii).Expand =true
Next
DS.Script.fillTree()
For ii=1 To DS.Script.lv.GroupCount Step 1
DS.Script.lv.FindGroup(ii).Expand =true
Next
Next
Endtry
End Function
運行后出現：缺少錯誤：branchSettings
請問是什么原因
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/60963.html
標籤：VB基礎類
下一篇：請教用VB怎么實作篩選年齡區間