增加无卡取电对应回路关联相应服务功能

BLV_Studio/Test/GridTest/TableInteraction.vb

@@ -1366,6 +1366,7 @@ Public Class TableInteraction
         'Console.WriteLine($"Grid_DoubleClick{_grd.Cell(_grd.ActiveCell.Row, _grd.ActiveCell.Col).Text }")
         If _grd.ActiveCell.Row = TableRowNumber.DeviceName AndAlso _grd.ActiveCell.Col = TableColNumber.DeviceName Then
             Dim fromshow As New PowerSupply
+            fromshow.G_TableInteraction=Me
             fromshow.G_ActionConfiguration = Dic_ActionConfiguration
             fromshow.ParseDeviceList(Dic_Devicemodel, _grd)
 
@@ -2419,6 +2420,10 @@ Public Class TableInteraction
             MsgBox("Non-scene action data cannot be copied!")
         End If
     End Sub
+    Public sub grdSetFocus( r As Integer ,c As Integer)
+        _grd.Cell(r,c).SetFocus
+
+    End sub
     Public Sub GlueSceneActionData()
         If CopyActionData.Count = 0 Then Return
         If _grd.ActiveCell.Row > TableRowNumber.Max - 1 Then
@@ -6124,11 +6129,11 @@ Public Class TableInteraction
             If IsNothing(result) Then Continue For
             resultDatas.AddRange(result.ToArray)
         Next
-        For Each node In VirtualCard
-            result = Virtual_CardFillDeviceObject(T_SceneID, DeviceModuleDic, node.Name, "Virtual_Card")
-            If IsNothing(result) Then Continue For
-            resultDatas.AddRange(result.ToArray)
-        Next
+        'For Each node In VirtualCard
+        '    result = Virtual_CardFillDeviceObject(T_SceneID, DeviceModuleDic, node.Name, "Virtual_Card")
+        '    If IsNothing(result) Then Continue For
+        '    resultDatas.AddRange(result.ToArray)
+        'Next
         For Each node In devTempment
             result = TempDeviceObject(T_SceneID, DeviceModuleDic, node.Name, "Temp")
             If IsNothing(result) Then Continue For