Dim gh As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim xm As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim gw As WinForm.TextBox = e.Form.Controls("TextBox3")
Dim pbx As WinForm.PictureBox = e.Form.Controls("PictureBox1")
If gh.Value > "" Then
Dim str As String = ("代号 = '" & gh.Value & "'")
Dim dr As DataRow = DataTables("工号表").Find(str)
If dr IsNot Nothing Then
pbx.Image = GetImage(dr("照片"))
gh.value = dr("代号")
xm.Value = dr("姓名")
gw.Value = dr("岗位")
Else
MessageBox.Show("对不起,你查找的人员不存在!")
End If
End If
加好友 
发短信
Post By：2016/11/7 15:44:00 [只看该作者]
Post By：2016/11/7 15:55:00 [只看该作者]
