以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]给指定列（如姓名列）最后一个空的单元格赋值，如列最后单后格是最后一行的话则新增一行并赋值。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97782)
--  作者：WUZHAN
--  发布时间：2017/3/18 12:02:00
--  [求助]给指定列（如姓名列）最后一个空的单元格赋值，如列最后单后格是最后一行的话则新增一行并赋值。
 [求助]给指定列（如姓名列）最后一个空的单元格赋值，如列最后单后格是最后一行的话则新增一行并赋值。
--  作者：有点蓝
--  发布时间：2017/3/18 14:03:00
--  

Dim dr As DataRow = DataTables("表B").Find("姓名 is null","[_Identify] desc")
If dr Is Nothing Then
    dr = DataTables("表B").AddNew
Else
    Dim idx As Integer = Tables("表B").FindRow(dr)
    If idx = Tables("表B").Rows - 1 Then dr = DataTables("表B").AddNew
End If

dr("姓名") = "张三"
--  作者：WUZHAN
--  发布时间：2017/3/18 14:44:00
--  
有错误提示
图片点击可在新窗口打开查看此主题相关图片如下：错误提示.jpg
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2017/3/18 15:25:00
--  
 If idx = Tables("表B").Rows.Count - 1 Then dr = DataTables("表B").AddNew