For Each ct As Object In e.Form.Controls If Typeof ct Is WinForm.Table Then If ct.Visible = True Then Dim nr As Row Dim nms() As String = {"Table2","Table3","Table4"} For Each nm As String In nms If ct.Table.Name.Contains("nm") Then ct.Table.Focus '将输入焦点移到指定Table表中 nr = ct.Table.AddNew() ct.Table.Select(nr.Index,0) '定位到新增行的第一列单元格 'ct.Table.StartEditing '进入单元格编辑模式 End If Next End If