1

我创建了一个 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>

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

4

1 回答 1

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!"
于 2012-08-06T10:49:52.003 回答