发几条常用的维护用sql语句

监守自盗 · 发表于 2008-9-5 16:27:06

你说的删除帐套号操作是指什么阿?

shdong340 · 发表于 2009-3-1 16:56:00

不错，值得学习，让我收藏一下

hj20762003 · 发表于 2009-3-2 16:52:07

15# wanyaxiong
解决应收明细帐翻倍的语句
Option Compare Database
Option Explicit

Sub main()
Dim Db As Database
Dim Rec As Recordset
Dim Sql As String
Dim str As Long
Dim str1 As String
Set Db = OpenDatabase("c:\ufsoft80\zt400\2000\ufdata.mdb")
Set Rec = Db.OpenRecordset("select * from ap_detail order by ibvid,cVouchType")
While Not Rec.EOF
      str = Rec("iBVid")
      str1 = Rec("cVouchType")
      Rec.MoveNext
      If Not Rec.EOF Then
         If Rec("iBVid") = str And Rec("cVouchType") = str1 Then
            Rec.Delete
            Rec.MoveNext
         End If
      End If
Wend
MsgBox "OK!"
End Sub
我晕。这是VB吧！！！！！！！

tssgh · 发表于 2009-4-17 15:20:55

谢谢楼主无私分享！

qiren1113 · 发表于 2010-7-20 09:50:22

........................

MAI · 发表于 2010-7-28 16:58:20

谢谢分享,收藏了.

linglei · 发表于 2010-7-30 16:34:46

值得学习值得学习

kidxpp · 发表于 2010-7-31 12:17:33

完全看不懂

03471 · 发表于 2010-8-5 11:27:46

学习一下，谢谢

aixgd · 发表于 2010-8-5 12:54:22

不错，就是没在U8里面用过这种语句

xyhxqq123 · 发表于 2010-8-5 15:13:06

不管怎样先记下了以后用着了在说

seabreezing · 发表于 2010-8-5 18:55:04

感谢分享你年年年年年年

787884646 · 发表于 2010-8-6 10:22:09

继续努力努力努力努力努力努力努力努力学习。。。

kehanking · 发表于 2010-8-6 15:00:09

后台语句的确不错，但是找到问题最根本的原因，才是解决问题之道。不过还是感谢楼主的分享。

scales · 发表于 2010-10-11 16:45:51

学习，学习一下

账号		自动登录	找回密码
密码			注册账号

初学者课程：T3自学\|T6自学\|U8自学	软件下载｜课件下载｜工具下载	资料：通资料\|U8资料\|NC\|培训\|年结	积分规则 \| 使用常见问题Q&A
知识库:U8 \| 通 \| NC \| U9 \| OA \| 政务	U8\|U9\|NCC\|NC65\|NC65客开\|NCC客开	新手必读 \| 任务 \| 快速增金币	用友QQ群[微信群]

[经验] 发几条常用的维护用sql语句

回复 15# wanyaxiong 的帖子