Dim hpr = DataTables("报餐").Find("[姓名] = '" & dr("姓名") & "' and [工号] = '" & dr("工号") & "'and [报餐日期] = '" & dr("报餐日期") & "' and [晚餐] = '" & dr("晚餐") & "'") 假如我这里想要查找早餐或者中餐或者晚餐满足条件,是不是改为or [早餐] = '" & dr("早餐") & "' or [中餐] = '" & dr("中餐") & "' or [晚餐] = '" & dr("晚餐") & "' 测试好像不行,该怎么写?
If hpr IsNot Nothing Then
dr.save()
With wb.AddMsgPage("","msgpage","报餐增加成功", "请按提交的报餐消费") '生成成功提示页
.AddButton("btn1","继续报餐","bc.htm")
End With
Else
With wb.AddMsgPage("","msgpage","重复报餐", "请重新选择报餐") '生成成功提示页
.icon = "Warn"
.AddButton("btn1","继续报餐","bc.htm")
End With
End If