以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何写一行没有录入数据无法新增的按钮  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=26292)
--  作者：flzcfll
--  发布时间：2012/11/29 11:49:00
--  如何写一行没有录入数据无法新增的按钮

请教一下高手，在客户信息表中如果上一行数据没有录入无法提示无法新增下一行的代码。

 
--  作者：blackzhu
--  发布时间：2012/11/29 11:56:00
--  
Dim s() As String ={"第一列","第二列","第三列","第四列"} \'定义列名
Dim r As Row = Tables("表B").Current \'定义当前行
For i As Integer = 0 To s.Length -1  \'遍历列名
    If r.IsNull(s(i)) Then   \'如果当前行有一列为空
        MessageBox.Show((s(i)) & "不允许为空")  \'提示
        Return Nothing \'返回
    Else  \'否则
        Tables("表B").AddNew   \'新增一行
    End If
Next
[此贴子已经被作者于2012-11-29 11:57:08编辑过]
--  作者：lin_hailun
--  发布时间：2012/11/29 12:00:00
--  
 dim r as row = tables("xxx").rows(tables("xxx").rows.count-1)   \'取得最后一行

 if r.IsNull("x列") OrElse r.IsNull("xx列") then
     msgbox("请填入数据")
 else
     tables("xxx").addnew
 end if
--  作者：flzcfll
--  发布时间：2012/12/9 22:47:00
--  

谢谢
--  作者：unverse
--  发布时间：2012/12/9 22:50:00
--  
恩。。都可以。。