我有下面一个窗口，当在不同的经手人时，分别调整相应的ID号，如：“支付记录_经手人1” 对应“支付记录_经1员工号”；
“支付记录_经手人２” 对应“支付记录_经２员工号”。请教：如何使用ｃａｓｅ的功能，都调用这同一窗口？谢谢
Dim idh As WinForm.TextBox = e.Form.Controls("ID号")
Dim bgdh As WinForm.TextBox = e.Form.Controls("办公电话")
Dim dzyx As WinForm.TextBox = e.Form.Controls("电子邮箱")
Dim sj As WinForm.TextBox = e.Form.Controls("个人手机")
Dim sszb As WinForm.ComboBox = e.Form.Controls("所属组别")
Dim ryxz As WinForm.ComboBox = e.Form.Controls("人员性质")
Dim xh As WinForm.TextBox = e.Form.Controls("序号")
Tables("内部通讯录").Current("ID号")= idh.text
Tables("内部通讯录").Current("办公电话")= bgdh.text
Tables("内部通讯录").Current("电子邮箱")= dzyx.text
Tables("内部通讯录").Current("个人手机")= sj.text
Tables("内部通讯录").Current("所属组别")= sszb.text
Tables("内部通讯录").Current("人员性质")= ryxz.text
Tables("内部通讯录").Current("序号")= xh.text
Dim dr As DataRow
Dim name As String =Tables("设备经费管理").Current("支付记录_经手人1")
dr = DataTables("内部通讯录").Find("姓名 = '" & name & "'")
Tables("设备经费管理").Current("支付记录_经1员工号")= dr("ID号").tostring().substring(3,4)
MessageBox.Show("谢谢!")
Forms("内部通讯录扩充2").close
加好友 
发短信
Post By：2015/1/21 11:02:00 [只看该作者]
