无卡取电回路关系对应服务信息

BLV_Studio/Test/GridTest/TableInteraction.vb

@@ -1383,6 +1383,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)
 
@@ -2485,6 +2486,10 @@ Public Class TableInteraction
             MsgBox("非场景动作数据不可复制!")
         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