SCADA DIAView 组合框 联动数据应用

1、新建一个窗口，并做窗口设计“标签”，“文本框”，“组合框”，“按钮”

2、新建变量字典：变量字典==>创建变量群组“VarCommon”

3、给“组合框”添加==>事件==>选择值改变事件。脚本如下：

Var.VarCommon.当前选中的配方编号=CInt(组合框0.SelectedValue)

varRecipeNames=CStr(Var.VarCommon.配方名称集合)
varRecipeNameArray=Split(varRecipeNames,"_",-1,1)
Var.VarCommon.配方名称输入=""
For i=0 To UBound(varRecipeNameArray)
    If i=CInt(Var.VarCommon.当前选中的配方编号)-1 then
        Var.VarCommon.配方名称输入=CStr( varRecipeNameArray(i))
    End If
Next

4、给按钮“修改”，按钮“重置” 添加 ==>事件==>左键按下

1、按钮“修改”的代码 脚本如下：

Dim maxRecipeNum,editRecipeName

Dim recipeNames,recipeNameArray()
varRecipeNames=CStr(Var.VarCommon.配方名称集合)
varRecipeNameArray=Split(varRecipeNames,"_",-1,1)
Var.VarCommon.配方名称输入=文本框0.Text
If Len(Var.VarCommon.配方名称输入)<=0 then
    MsgBox "请输入配方名称"
    Exit Sub
End If
For i=0 To 9
    ReDim Preserve recipeNameArray(i)
    
    If i<=UBound(varRecipeNameArray) then
        recipeNameArray(i)=varRecipeNameArray(i)
    Else
        recipeNameArray(i)=""
    End If
    If i=CInt(Var.VarCommon.当前选中的配方编号)-1 then
        recipeNameArray(CInt(Var.VarCommon.当前选中的配方编号)-1)=Var.VarCommon.配方名称输入
    End If
   
Next
newVarRecipeNames=""
For i=0 To UBound(recipeNameArray)
    newVarRecipeNames=newVarRecipeNames&"_"&recipeNameArray(i)
Next
newVarRecipeNames=Right(newVarRecipeNames,Len(newVarRecipeNames)-1)
Var.VarCommon.配方名称集合=newVarRecipeNames
MsgBox "修改成功"

2、按钮“重置”的代码，脚本如下：

var.VarCommon.配方名称集合=""

MsgBox "重置成功"

5、给窗口添加==>事件==>打开时 执行事件 脚本如下：

组合框0.Text=Var.VarCommon.当前选中的配方编号