- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]行单元格内容移动 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104060)
-- 发布时间：2017/7/22 9:07:00
-- [求助]行单元格内容移动
此主题相关图片如下：2.png
此主题相关图片如下：1.png
周期性检测下图的内容为上图的结果！即，当某列的内容的前一个单元格内容为空时就移动至前一列
[此贴子已经被作者于2017/7/22 9:09:14编辑过]
-- 发布时间：2017/7/22 9:08:00
--
根据什么条件触发？按什么规则移动？
-- 发布时间：2017/7/22 9:10:00
--
补充了，麻烦了
-- 发布时间：2017/7/22 9:17:00
--
周期性检测下图的内容为上图的结果！即，当某列的内容的前一个单元格内容为空时就移动至前一列
-- 发布时间：2017/7/22 10:10:00
--
For Each r As Row In Tables("表A").Rows
Dim lst As new List(of String)
Dim k As Integer = -1
Dim m As Integer = -1
For i As Integer = 0 To Tables("表A").Cols.Count - 1
If r.IsNull(i) = False Then
lst.Add(r(i))
m=i
ElseIf k = -1
k = i
End If
Next
If k > -1 AndAlso k < m Then
For i As Integer = 0 To lst.Count - 1
r(i) = lst(i)
Next
For i As Integer = lst.Count To Tables("表A").Cols.Count - 1
r(i) = Nothing
Next
End If
Next
-- 发布时间：2017/7/22 11:13:00
--
谢谢