e.Form.Controls("TextBox1").Text = Tables("员工资料").Current("员工代码")
e.Form.Controls("TextBox2").Text = Tables("员工资料").Current("姓名")
e.Form.Controls("TextBox3").Text = Tables("员工资料").Current("职务")
e.Form.Controls("TextBox5").Text = Tables("员工资料").Current("备注")
e.Form.Controls("TextBox6").Text = Tables("员工资料").Current("身份证号码")
e.Form.Controls("TextBox8").Text = Tables("员工资料").Current("电话")
e.Form.Controls("TextBox9").Text = Tables("员工资料").Current("手机")
e.Form.Controls("TextBox10").Text = Tables("员工资料").Current("EMail")
e.Form.Controls("TextBox11").Text = Tables("员工资料").Current("邮政编码")
e.Form.Controls("TextBox12").Text = Tables("员工资料").Current("住址")
e.Form.Controls("TextBox13").Text = Tables("员工资料").Current("拼音码")
这样的代码的简洁方式呢