189 8069 5689
if ”昵称“ = “喵星人” then
成都创新互联服务项目包括翔安网站建设、翔安网站制作、翔安网页制作以及翔安网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，翔安网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到翔安省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
if "年龄" = 18 then
if "性别" = “男” then
if "所在地" = “武汉” then
if "星座" = “魔蝎座” then
if "血型" = “O” then
else
end if
else
end if
else
end if
else
end if
else
end if
else
end if
你是说这个么？ 要是后面的值也有选项那就是得做集合了
你这已经完成一半了
然后就是应该申明一个表格，来接收语句操作的返回值
比如
dim
dt
as
datatable=comonmodule.sqlopera(strr,tablename)
dt.rows(0).columns(0).tostring
就是得到的结果的第一行第一列的值
我以
你的
sqlopera
是自己写的一个方法，可以返回一个表，作为条件。
直接打开EXCEL用CTRL+F ，可以直接定位到符合条件的数据；或用指定条件筛选
这个只能是一一判断的：
为了叙述简单，假设有两个可选条件，内容在： TextBox1(姓名)、TextBox2（部门）
主要是构造 Sql的Where子句，那么：
Dim MySqlWhere As String
MySqlWhere=""
If TextBox1.Text"" Then
MySqlWhere= " Where 姓名 = '" TextBox1.Text "'"
End If
If TextBox2.Text"" Then
if MySqlWhere="" Then
MySqlWhere= " Where 部门 = '" TextBox1.Text "'"
Else
MySqlWhere= MySqlWhere " And 部门 = '" TextBox1.Text "'"
End If
End If
'如果还有第3，第4，那只能这样了：
If TextBox3.Text"" Then
if MySqlWhere="" Then
MySqlWhere= " Where 字段3 = '" TextBox3.Text "'"
Else
MySqlWhere= MySqlWhere " And 字段3 = '" TextBox3.Text "'"
End If
End If
......
If TextBoxn.Text"" Then
if MySqlWhere="" Then
MySqlWhere= " Where 字段n = '" TextBoxn.Text "'"
Else
MySqlWhere= MySqlWhere " And 字段n = '" TextBoxn.Text "'"
End If
End If
注意：对于字符类型的字段，当然要用单引号，上面那样的，但是对于数值类型，就不要这个单引号的；但是对于日期类型，那么与字符类型不同的是，把前后的2个单引号，改为井号就是“#”， 这是很多初学者容易忽略的，也是很多教科书上不提的问题。
对于文本框，由于.NET不提供控件数组，但是还是可以用语句来实现类似数组的操作，这样以上IF语句，就可以简化。
试了好久，终于试出来了，把代码发给你分享：
首先，我建了个窗体，放了一个按扭控件，把打开连接EXECL的代码都放在该按扭的click事件里了，你可以根据需要改动。
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" _
"Data Source=E:\myexl.xls;" _
"Extended Properties=Excel 8.0;"
’这里面，E：\myexl.xls换成你自己的excel文件完整路径
Dim objConn As New OleDbConnection(sConnectionString)
objConn.Open()
MsgBox("成功打开连接") ’这句我用来测试能不能连接的，
’下面将建立查询命令
Dim objCmdSelect As New OleDbCommand("SELECT * FROM [11$] where 姓名='李三'", objConn)
'11j是我测试用的sheet名，你换成你自己的，注意格式
'程序默认Excel表的第一行内容为字段名，你换成你自己的内容，并建
'立查询条件
'下面将根据查询条件打开连接。
Dim objAdapter1 As New OleDbDataAdapter()
objAdapter1.SelectCommand = objCmdSelect
'下面将打开的数据放在dataset中
Dim objDataset1 As New DataSet()
objAdapter1.Fill(objDataset1, "XLData")
’下面将数据传给DataGrid1控件
DataGrid1.DataSource = objDataset1.Tables(0).DefaultView
' Clean up objects.
objConn.Close()
End Sub