以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]条件删除?大神在那里?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67589)

--  作者:1431091438
--  发布时间:2015/4/27 10:55:00
--  [求助]条件删除?大神在那里?

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar

录入的时候会空出一行,空多了不好看,能否录入的时候光标移动第一列有数据的下面,

或者删除只要一行全为空的行?代码求


--  作者:Bin
--  发布时间:2015/4/27 11:14:00
--  
执行代码

Dim Filter As String
For Each c As Col In Tables("表A").Cols
   FIlter = Filter & "and " & c.name & " is null "
Next
DataTables("表A").DeleteFor(Filter.Substring(3,Filter.length-3))

--  作者:1431091438
--  发布时间:2015/4/28 10:17:00
--  
谢谢,