2,723
社区成员
发帖
与我相关
我的任务
分享
--设你的表单上的这个文本框和列表框分别为:Text1和List1
1、
--表单Init事件代码:
This.KeyPreview=.T.
This.List1.Visible=.F.
2、
--表单KeyPress事件代码:
Lparameters nKeyCode, nShiftAltCtrl
If (nKeyCode=5 Or nKeyCode=24 Or nKeyCode=13) And This.List1.Visible And This.List1.ListItemId>0 And This.Text1.Tag='1'
If nKeyCode=13
This.Text1.Value=This.List1.Value
This.List1.Visible=.F.
Else
lnListID=Iif(nKeyCode=5,Max(This.list1.ListItemId-1,1),Min(This.list1.ListItemId+1,This.list1.ListCount))
This.list1.ListItemId=lnListID
Nodefault
Endif
Endif
3、
--Text1的GotFocus事件代码:
This.Tag='1'
--Text1的LostFocus事件代码:
Thisform.List1.Visible=.F.
This.Tag=''
--Text1的InteractiveChange事件代码:
If !Empty(This.Value)
Thisform.list1.RowSource=Null
Select 名称 From 商品名 Where Alltrim(This.Value)$拼音简码 Into Cursor t1 Order By 名称
Thisform.list1.RowSourceType=6
Thisform.list1.RowSource="t1.名称"
If Reccount('t1')>0
Thisform.List1.ListItemId=1
Thisform.List1.Visible=.T.
Else
Thisform.List1.Visible=.F.
Endif
Else
Thisform.List1.Visible=.F.
Endif