以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]按钮代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=16536)

--  作者:whtjtx
--  发布时间:2012/2/16 19:08:00
--  [求助]按钮代码

有3个按钮代码写不好,请老师帮帮忙,谢谢

 

第1个:删除当前表中空行,并保存当前表,退出当前窗口。

第2个:刷新当前项目所有表

第3个:取消锁定当前选定的行,并使该行第3列逻辑选择框的对号除掉。


--  作者:狐狸爸爸
--  发布时间:2012/2/16 20:37:00
--  

1、DataTables("XXX").DeleteFor("某列2 Is Null And 某列2 Is Null ")

 

2、没有必要,还不如重新打开项目。

 

3、

Tables("XXX").Current.Locked = False

Tables("XXX").Current("逻辑列名称") = False

 


--  作者:blackzhu
--  发布时间:2012/2/16 20:43:00
--  

DataTables("表名").DeleteFor("列名 Is Null")  \'删除某列为空
DataTables("表名").Save  \'保存表
e.Form.close   \'退出本窗口

 

第二个不明白

 

With Tables("表名")
    If .Current IsNot Nothing Then
        .Current.Delete
    End If
End With
   删除当前行

Tables("表名").Current("第三列") = False  当前行的第三列勾去掉

 

 

 


--  作者:实话实说
--  发布时间:2012/2/17 13:43:00
--  

第2个可能是网络数据同步问题,即服务器的数据表更新了,客户端的数据要同步更新


Syscmd.Table.Load()  \' 同步当前表

Syscmd.Project.Load()  \' 同步所有表