611
社区成员
发帖
与我相关
我的任务
分享
String ls_code, ls_name
Date ld_birthday, ld_birthday1
Int li_count
dw_empwhere.AcceptText()
ls_code = dw_empwhere.Object.emp_code[1]
ls_name = dw_empwhere.Object.emp_name[1]
ld_birthday = dw_empwhere.Object.emp_birthday[1]
ld_birthday1 = dw_empwhere.Object.emp_birthday1[1]
If ls_code = "" Or IsNull(ls_code) Then
ls_code = "%"
Else
ls_code = "%" + ls_code + "%"
End If
If ls_name = "" Or IsNull(ls_name) Then
ls_name = "%"
Else
ls_name = "%" + ls_name + "%"
End If
If IsNull(ld_birthday) Or String(ld_birthday, "yyyy-mm-dd") < "1900-01-01" Then
ld_birthday = Date("1900-01-01")
End If
If IsNull(ld_birthday1) Or String(ld_birthday1, "yyyy-mm-dd") > "2399-12-31" Then
ld_birthday1 = Date("2399-12-31")
End If
li_count = dw_emplist.Retrieve(ls_code, ls_name, ld_birthday, ld_birthday1)
If li_count > 0 Then
dw_emplist.ScrollToRow(1)
dw_emplist.selectrow(0,false)
dw_emplist.selectrow(1,true)
dw_emplist.Event rowfocuschanged(1)
End If
Return 1