[求助]判断web上点击某个按键？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

蓝老师，你好！

请问一下，我在网页上放两个按键，点击这两个按键分别处理不同的事情

如果用If判断的话，怎么加这个判断点击的是哪个按键呢？

蓝老师，是这样的

我两个按键点击提交，对应不同的结果，提交后还是返回当前页面

代码如下：

With wb.AddButtonGroup("","qaqueryq",False)

If Modify = False Then

'.Add("qasamplings", "抽验", "")

.Add("qasamplingok", "OK", "")

.Add("qasamplingng", "NG", "")

Else

'.Add("qasamplings", "抽验", "", "qaclickpage.htm").Attribute= "onclick = 'dataqueryshows()'"

.Add("qasamplingok", "OK", "", "qasampling.htm").Attribute= "onclick = 'dataqueryshows()'".

.Add("qasamplingng", "NG", "", "qasampling.htm").Attribute= "onclick = 'dataqueryshows()'"

End If

End With

'''Insert sample test data

Dim snums As String = e.Cookies("snumbe") '''Serial number(pcba号&包装号)

Dim samplok As String = "OK" '''Sample results OK

Dim samplng As String = "NG" '''Sample results NG

Dim CurrentTimes As DateTime = Now

'msgbox("序号:" & snums & " 抽验结果:" & samplere)

Dim qatable As String = "`TBL_" & jixing & "_QA_TestLog`"

Dim conninsert As String = "INSERT INTO " & qatable & " (Barcode_SN, StartTime, QA_CheckResult) VALUES ('" & snums & "', '" & CurrentTimes & "', '" & samplok & "');"

Dim conninserts As String = "INSERT INTO " & qatable & " (Barcode_SN, StartTime, QA_CheckResult) VALUES ('" & snums & "', '" & CurrentTimes & "', '" & samplng & "');"

Dim DtConinsert As New System.Data.DataTable

'try

If Then

DtConinsert = QueryReturnValue.ResultValue(conninsert, conn)

Else

DtConinsert = QueryReturnValue.ResultValue(conninserts, conn)

End If

这个If 判断，该怎么判断点击哪个按键？

function dataqueryshows(){

let data = $("#milltype").val() //变量赋值给data——机型

$.cookie('data',data)

console.log(data)

let snumbe = $("#number").val() //这个变量赋值给snumbers

$.cookie('snumbe', snumbe)

console.log(snumbe)

var result = submitAjaxForm('qasampling1','',false);

document.getElementById("qasmaquery").innerHTML=result;

}

蓝老师，功能实现了，但是感觉哪里不太对

代码如下：

With wb.AddButtonGroup("","qaqueryq",False)

If Modify = False Then

.Add("qasamplingok", "OK", "")

.Add("qasamplingng", "NG", "")

Else

'.Add("qasamplings", "抽验", "", "qaclickpage.htm").Attribute= "onclick = 'dataqueryshows()'"

.Add("qasamplingok", "OK", "", "qasampling.htm").Attribute= "onclick = 'dataqueryshows(1)'"

.Add("qasamplingng", "NG", "", "qasampling.htm").Attribute= "onclick = 'dataqueryshows(2)'"

End If

End With

'''Insert sample test data

Dim snums As String = e.Cookies("snumbe") '''Serial number(pcba号&包装号)

Dim samplok As String = "OK" '''Sample results OK

Dim samplng As String = "NG" '''Sample results NG

Dim CurrentTimes As DateTime = Now

'msgbox("序号:" & snums & " 抽验结果:" & samplere)

Dim qatable As String = "`TBL_" & jixing & "_QA_TestLog`"

Dim conninsert As String = "INSERT INTO " & qatable & " (Barcode_SN, StartTime, QA_CheckResult) VALUES ('" & snums & "', '" & CurrentTimes & "', '" & samplok & "');"

Dim conninserts As String = "INSERT INTO " & qatable & " (Barcode_SN, StartTime, QA_CheckResult) VALUES ('" & snums & "', '" & CurrentTimes & "', '" & samplng & "');"

Dim DtConinsert As New System.Data.DataTable

Dim qas = e.Cookies("id")

msgbox(qas)

'try

If qas = 1 Then

DtConinsert = QueryReturnValue.ResultValue(conninsert, conn)

Else

DtConinsert = QueryReturnValue.ResultValue(conninserts, conn)

End If

js里的代码：

function dataqueryshows(id){

let data = $("#milltype").val() //变量赋值给data——机型

$.cookie('data',data)

console.log(data)

let snumbe = $("#number").val() //这个变量赋值给snumbers

$.cookie('snumbe', snumbe)

console.log(snumbe)

$.cookie('id', id)

console.log(id)

var result = submitAjaxForm('qasampling1?id=' + id,'',false);

document.getElementById("qasmaquery").innerHTML=result;

}

劳烦帮忙看看是哪里的问题

5楼，7楼都照抄了，跟预想效果不一样

此主题相关图片如下：111.png

本来是要，输入序号查询出数据，点击下面的OK，或者NG按键,向数据库插入数据

现在的情况是，点击查询时直接插入数据，而下面的OK,NG按键只是跳转本页

然后再点击查询，才插入数据，按键功能变了

好吧，蓝老师，我在点击按键（还是刚刚那两个按键）执行完之后，

跳转到一个页面，在不操作的情况下，怎么让他自动跳转到查询那个页面

是这样的，我点击完查询，下面有两个按键--- OK NG

此主题相关图片如下：00.png

点击按键时，跳转到这个页面

此主题相关图片如下：11.png

然后不操作的情况下，跳转回查询页面

主题：[求助]判断web上点击某个按键？