此主题相关图片如下：捕获1.png
老师好！下列代码执行导入Excel数据后，合并单元格。主视图的表格执行合并操作，但窗口中的表格没有合并，附图所示。
请老师帮忙，谢谢！！！
此主题相关图片如下：捕获.png
Dim Tbl As Table=Tables("excel")
Dim Lbl As WinForm.Label=e.Form.Controls("Label1")
Dim Listb As WinForm.ListBox=e.Form.controls("listbox1")
Dim Book As New XLS.Book(lbl.Text)
Dim Sheet As XLS.Sheet = Book.Sheets(Listb.SelectedValue)
For i As Integer=tbl.Rows.count-1 To 0 Step -1
tbl.Rows(i).delete
Next
For n As Integer = 0 To Sheet.Rows.Count -1
Dim r As Row = Tables("excel").AddNew()
For m As Integer = 0 To 5
r(Tables("excel").Cols(m).name) = Sheet(n,m).Value
Next
Next
For j As Integer = 0 To 3
Functions.Execute("Fill_sameStr",tbl,j)
Next
With tbl
.MergeMode = MergeModeEnum.Standard '标准合并模式
.MergeCols.Clear() '清除原来的合并列
.MergeCols.Add(tbl.Cols(0).name) '加入要合并的列
.MergeCols.Add(tbl.Cols(1).name) '加入要合并的列
.MergeCols.Add(tbl.Cols(2).name) '加入要合并的
.MergeSort = tbl.Cols(0).name & "," & tbl.Cols(1).name & "," & tbl.Cols(2).name '设置合并模式下的排序方式
.AllowMerge = True '启用合并模式
End With
加好友 
发短信
Post By：2018/12/8 13:18:00 [只看该作者]
