1、检查人员按钮enter事件
Dim cmb_2 As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("班组").Value
cmb_2.ComboList = DataTables("特种作业取证表").GetComboListString("姓名", "班组 = '" & str & "' and 岗位='" & e.Form.Controls("单元").value & "'")
2、图片到表事件处理
叉车台帐datacolchanged事件
Select Case e.DataCol.Name
Case "注册车号"
If e.DataRow.IsNull("注册车号") Then
e.DataRow("实物图片") = Nothing
Else
Select Case e.NewValue
Case "陕H00019"
e.DataRow("实物图片") ="林德_陕H00019.jpg"
Case "陕H00022"
e.DataRow("实物图片") ="海斯特_陕H00022.jpg"
Case "陕H00023"
e.DataRow("实物图片") ="海斯特_陕H00023.jpg"
Case "陕H00024"
e.DataRow("实物图片") ="林德_陕H00024.jpg"
End Select
End If
End Select