以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 条件新增行公式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54400)

--  作者:wumingrong1
--  发布时间:2014/7/27 16:58:00
--  [求助] 条件新增行公式
我有一个按钮,想实现当 文本框“用户IP地址”中有内容 、 文本框“资料用户名称”为空(没有内容)时;在“互联网客户数据表”中新增一行并将光标移到到新增行;可是如下命令实现不了,帮我看看错在哪了?谢谢

Dim d1 As String = e.Form.Controls("用户IP地址").Text
Dim d2 As String = e.Form.Controls("资料用户名称").Text

If d1 > "" And  d2 Is Nothing Then

Tables("互联网客户数据表").addnew()
    
End If



--  作者:有点甜
--  发布时间:2014/7/27 17:01:00
--  

 应该是没有问题的,试试这样

 

Dim d1 As String = e.Form.Controls("用户IP地址").Text
Dim d2 As String = e.Form.Controls("资料用户名称").Text

If d1 > "" AndAlso  d2 = "" Then
       
    Tables("互联网客户数据表").addnew()
   
End If


 

 如果还有错,你看看是不是你的两个控件绑定了列?

 

http://www.foxtable.com/help/topics/2436.htm

 

[此贴子已经被作者于2014-7-27 17:01:52编辑过]

--  作者:wumingrong1
--  发布时间:2014/7/27 17:05:00
--  
如果控件是绑定了列啦,那命令该怎么写?
--  作者:有点甜
--  发布时间:2014/7/27 17:08:00
--  
If Tables("互联网客户数据表").Current.IsNull("用户IP地址") = False AndAlso  Tables("互联网客户数据表").Current.IsNull("资料用户名称") Then
       
    Tables("互联网客户数据表").addnew()
   
End If