S
shixianyong
Unregistered / Unconfirmed
GUEST, unregistred user!
Try
SearchSQL = "SELECT * FROM student_Info WHERE (" &
ComboSearchtype.Text &
"= '" &
TxtSearchValue.Text &
"')"
'建立查询
ExecuteSQL(SearchSQL, "student_Info")
DgstInfo.DataSource = ds.Tables.Item(0).DefaultView
'绑定数据
Catch
MsgBox("不存在该记录!", vbOKOnly + vbExclamation, "警告")
End Try
SearchSQL = "SELECT * FROM student_Info WHERE (" &
ComboSearchtype.Text &
"= '" &
TxtSearchValue.Text &
"')"
'建立查询
ExecuteSQL(SearchSQL, "student_Info")
DgstInfo.DataSource = ds.Tables.Item(0).DefaultView
'绑定数据
Catch
MsgBox("不存在该记录!", vbOKOnly + vbExclamation, "警告")
End Try