19836.html

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· HTML 代码 · 共 27 行

HTML
27 行
字号 
<html>  <head>    <title>Re: 如何删除一笔重复的资料</title>  </head>  <body bgcolor="#FFFFFF" vlink="#808080">    <center>      <h1>Re: 如何删除一笔重复的资料</h1>    </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:luo570@ms31.hinet.net">小琳</a> on October 08, 1999 at 20:29:40:<p>In Reply to: <a href="19828.html">如何删除一笔重复的资料</a> posted by Sam on October 08, 1999 at 17:01:04:<p>: <br>: 我的资料库中有两笔相同的资料,想删除其中一笔, 要如何做  ???<br>: 请各位大哥多多指教 !!!<p>:::您可以使用以下的方法：<br>Private Sub Command1_Click()<br>    Dim temp(10) As Integer, i As Integer<br>    Data1.RecordSource = "select 资料表7.[no] from 资料表7 group by 资料表7.[no] having count(*)>1 order by 资料表7.[no]"<br>    Data1.Refresh<br>    i = 0<br>    Do While Not Data1.Recordset.EOF<br>       temp(i) = Data1.Recordset(0)<br>       i = i + 1<br>       Data1.Recordset.MoveNext<br>    Loop<br>End Sub<br>将重覆的资料找出来，并放到阵列里，接着在将符合no<br>的资料先存起来，然后在使用SQL语法里的Delete叙述来将<br>符合的资料全部删除，再使用之前所存的资料再放入资料<br>库里!!!<br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 19836--><!--top: 12--><li><a href="12.html">Re: 如何删除一笔重复的资料</a> <b>John</b> <i>14:39:03 10/11/99</i>(<!--responses: 12-->0)<ul><!--insert: 12--></ul><!--end: 12--></ul><!--end: 19836--><br><hr size=7 width=75%><p></body></html>

19836.html - 源码说明

本页面展示了「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.」中的 19836.html 源码文件，采用 HTML 编程语言编写，共 27 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与VB相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?