Question

我创建了一个VBScript函数OnRefreshList（），只需单击“刷新列表”按钮即可调用它。

Sub OnRefreshList ()

Initdatatable(false)

if ReadFilters() = false then
    msgbox "It is not possible to refresh the whole orders list. Please enter more filters"
    exit sub
end if

End Sub

“刷新列表”按钮定义为

 <td class="button cmd" valign="center" nowrap id="cmdRefresh" onclick="OnRefreshList()" title="Refresh the order list">Refresh List</td>

当我点击按钮时，此功能正常工作。

现在我想在按键盘上的Enter键时调用此功能。

为此，我尝试更改以下代码，但它对我没用。

<td class="button cmd" valign="center" nowrap id="cmdRefresh" onKeydown="vbscript: if (event.keyCode==13) then OnRefreshList()" onclick="OnRefreshList()" title="Refresh the order list">Refresh List</td>

如果有人有答案，请帮助我。

Answer 1

您的onKeydown事件中没有正确的VBScript语句。它应该是：

onKeydown="vbscript: if event.keyCode=13 then OnRefreshList()"

注意单个=符号和缺少括号（它们不是强制性的）。如果你对javascript更熟悉：你可以混合使用VBScript和Javascript：

onKeydown="javascript: if (event.keyCode==13) OnRefreshList(); //this will work too!"

单击Enter键调用VBScript函数？

1 个答案: