📄 3262.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<html>
  <head>
    <title>错在那里</title>
  </head>
  <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">
    <center>
      <h1>错在那里</h1>
    </center>

<HR><p>
Posted by <a href="mailto:jfmt@stn.sh.cn">Eric</a> on June 16, 1998 at 05:07:07:<p>
Private Sub cmd新增_Click()<br>Dim x As String<p>On Error GoTo errorhandle:<p>datPrimaryRS.Recordset.MoveLast<br>x = datPrimaryRS.Recordset.RecordCount + 1<br>datPrimaryRS.Recordset.AddNew<br>Text1.Text = x<br>Exit Sub<br>errorhandle:<p><br>Select Case Err<br> Case Err = 524<br>    MsgBox "输入的日期方式有误!年/月/日.", 524, "注意"<br> Case Err = 3426<br>    MsgBox "输入的编号重复!请查明后重新输入", 3426, "注意"<br> Case Else<br>     MsgBox "请向系统管理者询问"   每一次都是报这个错误.在日期输入错误也是<br>报这条命令.<br>    End Select<p>   <br>End Sub
<br>
<p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 3262-->
<!--top: 3271--><li><a href="3271.html"><b>Re: 错在那里</b></a> Magician <i>19:11:07 6/16/98</i>
(<!--responses: 3271-->0)
<ul><!--insert: 3271-->
</ul><!--end: 3271-->
</ul><!--end: 3262-->
<br><HR><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -