单独做一个按钮
Dim ndr As DataRow = DataTables("干部库").AddNewndr("姓名") = Tables("干部库").Current("姓名") ndr("简历") = Tables("干部库").Current("简历")