1、 复选框 1 属性 2、 复选框 1 变量连接 3、 复选框全选脚本 

4、 复选框 2 变量连接 5、 复选框 2 全选脚本 6、 待写入数据 

7、 分组数据连接 8、 按钮脚本 

9、 脚本文本 If (HMIRuntime.SmartTags("选项 1").Value And 16) <> 0 Then HMIRuntime.SmartTags("选项 1").Value=31 End If If (HMIRuntime.SmartTags("选项 2").Value And 64) <> 0 Then HMIRuntime.SmartTags("选项 2").Value=127 End If Dim a,b,i,j,k a=HMIRuntime.SmartTags("选项 1").Value b=HMIRuntime.SmartTags("选项 2").Value For i=1 To 4 据"&j&"").Value End If Next For j=1 To 6 Next If ((a And 2^(i-1))<>0) And ((b And 2^(j-1))<>0) Then HMIRuntime.SmartTags("数据"&i&"-"&j&"").Value=HMIRuntime.SmartTags("待写入数