以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  最后一行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=114350)
--  作者：swagger
--  发布时间：2018/2/4 2:05:00
--  最后一行
怎么判断最后一行某列是空就不增加行？譬如客户表，增加一行的时候，判断表的最后一行的“客户名称”是否空，如果空的话就不允许增加行。


1. 在表怎么写代码？


2. 窗口按钮怎么写代码

譬如 

if DataTables("客户").DataRows(0).IsNull("客户名称") =False  Then
    MessageBox.Show("错误,没有输入客户名称!")   
else Tables("客户").AddNew()
end if 
--  作者：swagger
--  发布时间：2018/2/4 2:35:00
--  
暂时想出一个临时方法， 



With Tables("客户")
    .Position = .Rows.Count - 1

If Tables("客户").Current.IsNull("客户名称") = True

MessageBox.Show("错误,没有输入客户名称!")   


Else Tables("客户").AddNew()
End If 
End With



希望老师回答上述问题
--  作者：有点甜
--  发布时间：2018/2/4 19:11:00
--  
Dim t As Table = Tables("客户")
Dim i As Integer = t.FindRow("客户名称 is null")
If i >= 0 Then
    t.position = i
    msgbox("第" & i+1 & "行为空")
Else
    t.AddNew
End If