主题：条件

 Dim hpr = DataTables("报餐").Find("[姓名] = '" & dr("姓名")  & "' and [工号] = '" & dr("工号")  & "'and [报餐日期] = '" & dr("报餐日期")  & "' and ([早餐] = '" & dr("早餐")  & "' or [中餐] = '" & dr("中餐")  & "' or [晚餐] = '" & dr("晚餐")  & "')"

1、先不要新增行，往里面填入数据。

 

2、先查找是否找到对应的行

 

Dim hpr = DataTables("报餐").Find("[姓名] = '" & dr("姓名")  & "' and [工号] = '" & dr("工号")  & "'and [报餐日期] = '" & dr("报餐日期")  & "'")

If hpr isnot Nothing Then '在这里，再处理你网页提交过来的值

   If e.values("早餐控件名") = true Then

        if hpr("早餐") = true Then

            msgbox("早餐已经订过")

        else

             hpr("早餐") = true

        end If

    End If

   If e.values("午餐控件名") = true Then

        if hpr("午餐") = true Then

            msgbox("午餐已经订过")

        Else 

             hpr("午餐") = true

        end If

    End If

   If e.values("晚餐控件名") = true Then

        if hpr("晚餐") = true Then

            msgbox("晚餐已经订过")

        Else 

             hpr("晚餐") = true

        end If

    End If

Else

    '新增一行，录入各列数据

End If

 

1、你说的重复提交是怎么操作的？在提交按钮快速点击两次提交？请点击提交的时候间隔大一点再测试。

 

2、请做一个实例发上来测试。

 

 

 

 

弹出值看一下如

 

Dim hpr = DataTables("报餐").Find("[姓名] = '" & name  & "' And [工号] = '" & gh  & "' and [报餐日期] = '" & e.PostValues("报餐日期")  & "'")

msgbox(hpr("中餐"))

msgbox(e.Postvalues("中餐"))

msgbox("[姓名] = '" & name  & "' And [工号] = '" & gh  & "' and [报餐日期] = '" & e.PostValues("报餐日期")  & "'")

If hpr("中餐") = "on"  And e.Postvalues("中餐") = "on" Then

 

如果弹出的值正常，你把报餐表的数据删除后重新测试一下。

你给中餐赋值了吧？

 

If e.Postvalues("中餐") = "on"  Then
    If hpr("中餐") = "on"  And e.Postvalues("中餐") = "on" Then
        With wb.AddMsgPage("","msgpage2","提交失败",  "中餐已经订过!")
            .icon = "Warn" '改变图标
            .AddButton("btn1","返回").Attribute = ""
        End With
        e.WriteString(wb.Build)
        Return "" '必须返回
    Else
        hpr("中餐") =  "on"
    End If
End If