VB。net多条件查询ACCESS

[babypurple]

cn = New OleDbConnection(cnstr)
        cn.Open()
        Dim lastDate As Date
        Dim sql As String = "select distinct max(时间) from [horizontal_displacement] "
        Dim cm As New OleDbCommand(sql, cn)
        lastDate = cm.ExecuteScalar()
        lastdate_txtbox.Text = lastDate
        Dim sqlstr As String = "SELECT horizontal_displacement.测点编号, 径向位移, 切向位移 FROM [horizontal_displacement] WHERE 时间 = #" & lastDate & "# "
        da = New OleDbDataAdapter(sqlstr, cn)
        ds = New DataSet
        da.Fill(ds, "horizontal_displacement")
        section_query_dgv.DataSource = ds.Tables(0)
        cn.Close()

access中两个表，要求查询最新时间的测值，但是只显示某个一部位的所有测点的记录。
如何写？

[feiyun0112]

dim buwei as String ="左坎肩"
Dim sqlstr As String = "SELECT horizontal_displacement.测点编号, 径向位移, 切向位移 FROM [horizontal_displacement] WHERE 时间 = #" & lastDate & "# and 部位='" & buwei & "'"

*****************************************************************************
签名档： http://feiyun0112.cnblogs.com/

[babypurple]

“部位”字段不在表horizontal_displacement（上面第一张表）中，在表measure_point_information中（上面第二张表），

[babypurple]

已经解决：

 Dim sqlstr As String = "SELECT measure_point_information.测点编号,horizontal_displacement.径向位移, horizontal_displacement.切向位移 FROM [horizontal_displacement],[measure_point_information] WHERE horizontal_displacement.时间 = #" & lastDate & "# and horizontal_displacement.测点编号=measure_point_information.测点编号 and measure_point_information.部位='" & section_combox.Text & "'"

[babypurple]

就是先在measure_point_information中查询出部位=“左岸坝肩”的所有测点，然后在horizontal_displacement中查询出，这些测点时间=#lastdate#的记录，