| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 删除表中列A为非空值，其他列都为空值的行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123270) |
| -- 作者：aza520 -- 发布时间：2018/8/10 21:49:00 -- 删除表中列A为非空值，其他列都为空值的行 在窗口中增加个按钮，代码如下，因有“列A”设为增加行时自动填充数据，所以想删除“列A”其它列都为空值的行（包括所有后台这样的行），请问老师，以下代码怎么修改？ Dim cn As String For Each c As Col In Tables("S征地记录").cols If c.DataCol.DefaultValue > "" Then cn = cn & "and (" & c.name & " <> \'" & c.Name & "\' or " & c.name & " is null )" Else cn = cn & "and " & c.name & " is null " End If Next |
| -- 作者：有点蓝 -- 发布时间：2018/8/10 21:56:00 -- DataTables("表B").SQLDeleteFor("列A is null") DataTables("表B").DeleteFor("列A is null") DataTables("表B").Save
|