| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]如何实现空行的使用 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105236) |
| -- 作者：zyl19810322 -- 发布时间：2017/8/15 9:23:00 -- [求助]如何实现空行的使用 具体是在窗口中设置一个新增按钮，在新增行之前，判断表内是否有空行，如果有，选中这个空行，如果没有，新增一个 谢谢老师
|
| -- 作者：有点甜 -- 发布时间：2017/8/15 10:01:00 -- Dim t As Table = Tables("表A") Dim filter As String = "1=1" For Each c As Col In t.Cols If c.IsBoolean Then filter &= " and " & c.name & " = false" Else filter &= " and " & c.name & " is null" End If Next Dim idx As Integer = t.FindRow(filter) If idx >= 0 Then t.Position = idx Else t.AddNew End If |