如题.
不在列头的时候,可以通过以下代码来实现,载入完成就可以入力.
- Dim txt1 As New FarPoint.Web.Spread.TextCellType
- txt1.ShowEditor = True
- txt1.ShowEllipsis = True
- sheet.Cells(4,6).CellType= txt1
复制代码
在列头的时候,通过类似设置,不能实现可入力效果
- Dim txt1 As New FarPoint.Web.Spread.TextCellType
- txt1.ShowEditor = True
- txt1.ShowEllipsis = True
- sheet.ColumnHeader.Cells(4, 6).CellType = txt1
复制代码 |
|