- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- excel表格合并的单元格导入ft后，如何也是合并的格式。。。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101016)
-- 发布时间：2017/5/23 17:12:00
-- excel表格合并的单元格导入ft后，如何也是合并的格式。。。
如题，现在是只有第一行有数据，其他行是空的。。。
有什么办法能自动和excel的格式一样吗？。。。
此主题相关图片如下：微信截图_20170523170843.png
合并后：
此主题相关图片如下：微信截图_20170523171231.png
[此贴子已经被作者于2017/5/23 17:12:55编辑过]
-- 发布时间：2017/5/23 17:28:00
--
编写代码赋值，然后设置合并模式
Dim cs() As String = {"第一列", "第二列", "第三列"}
Dim t As Table = CurrentTable
For Each c As String In cs
For i As Integer = 1 To t.Rows.count-1
If t.Rows(i).IsNull(c) Then
t.Rows(i)(c) = t.Rows(i-1)(c)
End If
Next
Next
-- 发布时间：2017/5/23 17:29:00
--
编写代码赋值，然后设置合并模式
Dim cs() As String = {"第一列", "第二列", "第三列"}
Dim t As Table = CurrentTable
For Each c As String In cs
For i As Integer = 1 To t.Rows.count-1
If t.Rows(i).IsNull(c) Then
t.Rows(i)(c) = t.Rows(i-1)(c)
End If
Next
Next
-- 发布时间：2017/5/23 17:52:00
--
厉害了