类似,不过这种表格不方便查询
Dim d As Date= #6/20/2016#
Dim dr As DataRow = DataTables("数据表").Find("人员姓名='张三' and (第一次还款时间 = #" & d & "# or 第二次还款时间 = #" & d & "# or 第三次还款时间 = #" & d & "# )")
If dr IsNot Nothing Then
If dr("第一次还款时间") = d Then
msgbox(dr("第一笔金额"))
ElseIf dr("第二次还款时间") = d Then
msgbox(dr("第二笔金额"))
Else
msgbox(dr("第三笔金额"))
End If
End If