主题：外部数据源遍历加入到表，速度问题

 试试

Systemready = False
Tables("a").StopRedraw
For Each dr As DataRow In DataTables("专业技术职务").Select("")
    Dim nr As Row = Tables("a").AddNew
    nr("a")=dr("名称")
    nr("b")=("简码")
    nr("c")=("编码")
Next
Tables("a").ResumeRedraw
Systemready = True