nbsp;
Sub cmdDown_OnClick
'在 Input Boxes 窗体和 Submit 窗体中设置值。
Document.Form.MoveAmount.Value = -1
Document.Form.Submit
End Sub
Sub cmdUp_OnClick
Document.Form.MoveAmount.Value = 1
Document.Form.Submit
End Sub
Sub cmdFirst_OnClick
Document.Form.MoveFirst.Value = 2 Document.Form.Submit
End Sub
Sub cmdLast_OnClick
Document.Form.MoveLast.Value =3
Document.Form.Submit
End Sub
</script>
</html>
Sub cmdDown_OnClick
'在 Input Boxes 窗体和 Submit 窗体中设置值。
Document.Form.MoveAmount.Value = -1
Document.Form.Submit
End Sub
Sub cmdUp_OnClick
Document.Form.MoveAmount.Value = 1
Document.Form.Submit
End Sub
Sub cmdFirst_OnClick
Document.Form.MoveFirst.Value = 2 Document.Form.Submit
End Sub
Sub cmdLast_OnClick
Document.Form.MoveLast.Value =3
Document.Form.Submit
End Sub
</script>
</html>