If e.Form.Controls("学生姓名").Text IsNot Nothing Then if e.Form.Controls("学生姓名").Text.length>=3 then
Dim txt As String = e.Form.Controls("学生姓名").Text.SubString(3)
e.Form.Controls("学生姓名").OpenDropDown()
Dim t As Table = Tables("下拉_Table1")
t.DataSource = DataTables("学生基本信息") '绑定学生基本信息表
t.SetColVisibleWidth("学生姓名|80|性别|40|") '显示"学生姓名"列
t.RowHeaderVisible = False '关闭行号
If txt = "" Then
t.Filter = ""
Else
txt = "'%" & txt & "%'"
t.Filter = "学生姓名 Like " & txt
t.Sort = "学生姓名 DESC"
End If
If DataTables("学生基本信息").datarows.count < 1 Then
e.Form.Controls("学生姓名").OpenDropDown()
End If
end if
End If
加好友 
发短信
Post By：2015/4/20 16:40:00 [显示全部帖子]
