fpspread 葵花宝典分析和总结.docxVIP

fpvaspread 详解 With vaspread .DeleteRows 1, 1 --删除第一列第一行数据 .Col = -1: .Row = -1: .Lock = False --设置 vaspread 为解锁状态 .AllowUserFormulas = False ‘不允许格式化 .MaxCols = 67 58 ‘设置最大列数 .MaxRows = 300 ‘设置显示行的最大数 .ColHeaderRows = 1 2 将头换成 1 行 .UserColAction = UserColActionSort 表头是否排序 .AddCellSpan 1, SpreadHeader, 17, 1 16 change 17 ‘设置显示标题栏格式 .Col = 1: .Row = SpreadHeader: .Text = 基本信息 ‘设置列名 .Col = COL_ID: .Row = SpreadHeader: .Text = 序号 SpreadHeader + 1 控制显示 的行 SpreadHeader + 1 DateField 为绑定的数据表字段 colhidden 是否为隐藏 ‘Colwidth 设置显示的列的宽度 .Col = COL_FID: .Row = SpreadHeader: .DataField = FID: .Text = 表体唯一号: .ColHidden = True ：。ColWidth（1）=12 ‘SpreadHeader + 1 ‘格式化列表 .CellType = CellTypeDate 日期 .Col = FhwBoolIn(2, FStartDate): .CellType = CellTypeDate: .TypeDateFormat = TypeDateFormatYYMMDD ‘设置数字 .CellType = CellTypeNumber .Col = FhwBoolIn(2, FThickness): .CellType = CellTypeNumber: .TypeNumberDecPlaces = 2: .TypeNumberShowSep = True: .TypeHAlign = TypeHAlignRight ‘设置文本型.CellType = CellTypeEdit: .Col = FhwBoolIn(2, FDescriptionCust): .TypeEditMultiLine = True: .CellType = CellTypeEdit: .AutoSize = True ‘自动换行换列 Private Sub EntrerCtrlCol(ByVal KeyCode As Long) Enter 换行With vaspread If KeyCode = 13 Then ‘获取回车事件 If .MaxCols .ActiveCol Then 。如果当前列不等于最大列，则换行否则换列 .SetActiveCell .ActiveCol + 1, .ActiveRow .SetFocus Else .SetActiveCell 1, .ActiveRow + 1 .SetFocus End If End If End With End Sub ‘获取值 Dim pvalue as variant vaspread.GetText vaspread.ActiveCol, vaspread.ActiveRow,pvalue‘ pvalue 为获取的值vaspread.SetText vaspread.ActiveCol, vaspread.ActiveRow,pvalue ‘pvalue 需要给赋予的值‘设置行底色一级边框颜色 ‘第一行设置背景颜色，第二行设置边框颜色 With vasperad .Col = -1: .Row = Row: .BackColor = HC0C0C0: .BackColorStyle = BackColorStyleUnderGrid .Col = -1: .Row = Row: .BorderStyle = BorderStyleFixedSingle: .BackColor = End with ‘复制行 With vaspread .InsertRows vaspread.ActiveRow + 1, 1 For i = 0 To .MaxCols .Col = i .GetText i, .ActiveRow, Temp If i = FhwBoolIn(2, FDescriptionYard) Or i = FhwBoolIn(2, FDescriptionCust) T