以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表新增行前判断某写字段是否为空值,如果是,光标移到该字段  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160907)

--  作者:yyshiyifen
--  发布时间:2021/2/25 20:52:00
--  表新增行前判断某写字段是否为空值,如果是,光标移到该字段
  求助。
   现在有表A, 
   新增行之前判断当前行的字段 1 ,字段 2 ,字段3, 字段4,是否有空值,如果有空值,光标字段转到该字段,新增行功能取消

--  作者:有点蓝
--  发布时间:2021/2/25 20:57:00
--  
BeforeAddDataRow事件

If Tables("表B").current.IsNull("第一列") Then
    Tables("表B").Select(Tables("表B").RowSel,0)
    e.Cancel = True
End If

--  作者:yyshiyifen
--  发布时间:2021/2/25 21:04:00
--  
谢谢老师,那如果不知道搞该“字段“”是第几列呢?


--  作者:有点蓝
--  发布时间:2021/2/25 21:23:00
--  
If Tables("表B").current.IsNull("某字段") Then
    Tables("表B").Select(Tables("表B").RowSel,Tables("表B").cols("某字段").index)
    e.Cancel = True
End If

--  作者:yyshiyifen
--  发布时间:2021/2/25 21:25:00
--  
老师, 还有一个问题


表b ,第一列,第二列,第三列,第四列

如果可以把 在“”第一列 ”输入数据后按回车,光标直接跳到第 4 列?


--  作者:有点蓝
--  发布时间:2021/2/25 21:29:00
--  
到keydownedit事件处理,判断如果是回车,使用Tables("表B").Select方法跳即可
--  作者:yyshiyifen
--  发布时间:2021/2/25 21:37:00
--  
好的,非常感谢老师的指导