以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如果当前行全部为空，则删除，怎么实现？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66945)
--  作者：liuxianjie1980
--  发布时间：2015/4/16 13:42:00
--  [求助]如果当前行全部为空，则删除，怎么实现？

写的代码如下：

 

If Tables("人力资源库").Current Is Nothing Then
    Tables("人力资源库").Current.delete
End If
    Forms("人力资源界面主窗口").open()
    forms("人力资源详细内容窗口").close()

 

好像实现不了，请大师修改！
--  作者：Bin
--  发布时间：2015/4/16 13:49:00
--  
Dim b As Boolean = false
for each c as col in tables("人力资源库").cols
    if Tables("人力资源库").Current.isnull(c.name)=false then
          b= true
    end if
next
if b =false then
 Tables("人力资源库").Current.delete
end if
 Forms("人力资源界面主窗口").open()
    forms("人力资源详细内容窗口").close()
else
--  作者：liuxianjie1980
--  发布时间：2015/4/16 14:18:00
--  

谢谢！