主题：[求助]窗口中增加行时,让鼠标自动定位到主表与关联表的当前行的第一列,求事件代码

mark 设置鼠标位置

全局代码

<DllImport("user32.dll", EntryPoint := "SetCursorPos")> _
Public Function SetCursorPos(x As Integer, y As Integer) As Boolean

End Function

设置到焦点单元格

Dim c1table As C1FlexGrid.C1FlexGrid = Tables("表A").Grid
Dim rc As C1FlexGrid.CellRange = c1table.Selection
Dim cellrect As System.Drawing.Rectangle = c1table.RectangleToScreen(c1table.GetCellRect(rc.r1,rc.c1))
SetCursorPos(cellrect.x, cellrect.y)