初始化项目

BLV_Studio/Test/GridTest/TableServer.vb

@@ -0,0 +1,27 @@
+Public Class TableServer
+    Private ServerRow As Integer
+    Private Invokecnt As Integer
+
+    Sub New(addr As Integer)
+        ServerRow = addr
+        Invokecnt = 1
+    End Sub
+
+    Public Sub AddRow(addrow As Integer)
+        ServerRow = ServerRow + 1
+    End Sub
+    Public Sub DelRow(addrow As Integer)
+        If ServerRow > addrow Then
+            ServerRow = ServerRow - 1
+        End If
+    End Sub
+
+    Public Sub CallingBase()
+        Invokecnt = Invokecnt + 1
+    End Sub
+
+
+
+
+
+End Class