以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于确定添加数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101824)
--  作者：peibaomin
--  发布时间：2017/6/7 22:48:00
--  关于确定添加数据

If DataTables("客户资料").DataCols("客户姓名") IsNot Nothing Then
MessageBox.Show("添加数据成功!", "提示")

DataTables.Save
Else
MessageBox.Show("客户姓名不能为空!", "提示")

怎么写代码实现    ‘输入焦点移到“客户姓名”数据上。
End If

 

 

测试后如果是空值也是给保存数据了，老师那个地代码错了
--  作者：狐狸爸爸
--  发布时间：2017/6/8 8:48:00
--  
你这各代码写在什么事件中？

还有空值判断办法参考：

http://www.foxtable.com/webhelp/scr/0426.htm
http://www.foxtable.com/webhelp/scr/1470.htm
--  作者：有点蓝
--  发布时间：2017/6/8 8:50:00
--  
If Tables("客户资料").Current IsNot Nothing
    If  AndAlso Tables("客户资料").Current.IsNull("客户姓名") = False Then
        MessageBox.Show("添加数据成功!", "提示")
        DataTables.Save
    Else
        MessageBox.Show("客户姓名不能为空!", "提示")
        Tables("客户资料").Select
        Tables("客户资料").StartEditing
    End If
End If