以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  求助：求按键代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=80674)

--  作者：qwz405 --  发布时间：2016/1/28 16:03:00 --  求助：求按键代码 前题：当 逻辑列=true 时，第一列、第二列的值一定是空的，第一列、第二列设定不存在重复值。 条件： 逻辑列 = false， 当前时间 > 时间列 第一列 = nothing 第二列的值在第一列中没有(因为：第一列不能存在重复值。) 操作： 第一列 = 第二列 第二列 = nothing  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项目0128.table 此主题相关图片如下：111.jpg

--  作者：大红袍 --  发布时间：2016/1/28 16:15:00 --   For Each dr As DataRow In DataTables("表A").DataRows     If dr("逻辑列") = False AndAlso dr.IsNull("第一列") AndAlso dr("时间列") < Date.now Then         Dim fdr As DataRow = DataTables("表A").Find("第一列 = \'" & dr("第二列") & "\'")         If fdr Is Nothing Then             dr("第一列") = dr("第二列")             dr("第二列") = Nothing         End If     End If Next