以文本方式查看主题

-  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=30016)

--  作者:狐作非为
--  发布时间:2013/3/19 10:00:00
--  [已解决]返回当前行的最后一个列不为空的内容
请教,返回当前行的最后一个列不为空的内容,应该怎么写?
[此贴子已经被作者于2013-3-19 10:59:05编辑过]

--  作者:狐狸爸爸
--  发布时间:2013/3/19 10:12:00
--  

Dim t As Table = Tables("xxx").

Dim r As Row = t.Current

Dim v As String

For i As integer = t.Cols.Count -1 to 0 Step -1

       if r.isnull(t.Cols(i).Name)= False Then

            v =  r(t.Cols(i).Name))

            exit for

       end If

Next


--  作者:狐作非为
--  发布时间:2013/3/19 11:00:00
--  
谢谢!!!图片点击可在新窗口打开查看