主题：字体表格

e.Table.SetHeaderRowHeight(40)
For i As Integer = 1 To e.Table.Rows.Count
    e.Table.Grid.Rows(i).Height = 36
    Dim j As Integer = CInt(e.Table.Grid.Rows(i).Height / 3.2)
    e.Table.Font = New Font("宋体",j , FontStyle.Bold)
Next

在AfterLoadTableSetting中加入上述代码，如果表是复制过来的表，好像不起作用？

上个例子看看.

 

呃，这个事件的代码，是你需要重新启动，或者重新加载表，才会执行的。

还以为楼主说启动后 复制的表没效果,  难道你是希望一复制就有效果啊.

不是这个意思，我说的是重新建立的表就有效，复制过来的表，无论怎样打开都无效。

上个例子瞅瞅

 

复制表，只是复制表结构和数据，代码什么的都不会带过去的。

 

你还是得写代码进去的。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:例子.rar

请老师帮我修改一下。

 

看7楼。