主题：[求助]文本框的求助

老师好。

我的“出库窗口” 上有一个领用人的文本框 名称“姓名”

文本框后有一个查询按钮

有一个“员工信息表”内有，员工编号，姓名……字段

想实现，两种查询后显示员工姓名的方式

1、文本框内输入员工编号，点击查询，

文本框内自动显示员工编号对应的员工姓名

 

2、文本框内输入员工姓名的拼首拼字母，如 王大锤  输入，，WDC，，点击回车后，自动显示  王大锤名字。。

 

 

上述两种方式，如果涉及重名的，可生成列表选择。

谢谢老师。

 

必须用combobox控件。

 

Dim txt As String = e.form.controls("textbox1").text
Dim str As String = DataTables("表A").GetComboListString("姓名", "员工编号 like '%" & txt & "%' or 拼音 like '%" & txt & "%'")
If str > "" Then
    Dim cbx As WinForm.ComboBox = e.form.controls("combobox1")
    cbx.combolist = str
    cbx.SelectedIndex = 0
End If

必须用combobox控件。

 

Dim txt As String = e.form.controls("textbox1").text
Dim str As String = DataTables("表A").GetComboListString("姓名", "员工编号 like '%" & txt & "%' or 拼音 like '%" & txt & "%'")
If str > "" Then
    Dim cbx As WinForm.ComboBox = e.form.controls("combobox1")
    cbx.combolist = str
    cbx.SelectedIndex = 0
End If

查询按钮

必须用combobox控件。

 

Dim txt As String = e.form.controls("textbox1").text
Dim str As String = DataTables("表A").GetComboListString("姓名", "员工编号 like '%" & txt & "%' or 拼音 like '%" & txt & "%'")
If str > "" Then
    Dim cbx As WinForm.ComboBox = e.form.controls("combobox1")
    cbx.combolist = str
    cbx.SelectedIndex = 0
End If

 必须加入拼音字段

 

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=103586&replyID=710270&skin=1