主题：代码能简化

1、不建议简化；

2、如果确实要简化，只能把这一段提取出来

    dr("录入人") = _UserXingming
    dr("录入日期") = Format(Date.Now,"yyyy-MM-dd")
    dr("教工编号") = e.Form.Controls("教工编号").text
    dr("教工姓名") = e.Form.Controls("教工姓名").text
    dr("进本校日期") = e.Form.Controls("进本校日期").text
    dr("手机号码") = e.Form.Controls("手机号码").text
    dr("党派") = e.Form.Controls("党派").text
    dr("民族") = e.Form.Controls("民族").text
    dr("学历") = e.Form.Controls("学历").text
    dr("专业") = e.Form.Controls("专业").text
    dr("身份证号码") = e.Form.Controls("身份证号码").text
    dr("毕业日期") = e.Form.Controls("毕业日期").text
    dr("毕业院校") = e.Form.Controls("毕业院校").text
    dr("资格证号码") = e.Form.Controls("资格证号码").text
    dr("资格证类别") = e.Form.Controls("资格证类别").text
    dr("职称") = e.Form.Controls("职称").text
    dr("籍贯") = e.Form.Controls("籍贯").text
    dr("家庭住址") = e.Form.Controls("家庭住址").text
    dr("履历") = e.Form.Controls("履历").text
    dr("特长") = e.Form.Controls("特长").text