fpspread 葵花宝典

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 H80000018 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 Then Temp Temp SetText i ActiveRow 1 Temp vaspread ColWidth FhwBoolIn 2 FDescriptionCust 20 vaspread ColWidth FhwBoolIn 2 FDescriptionYard 20 iHeight Len Temp 13 If Right FormatNumber iHeight 1 5 Then iHeightTemp Round iHeight 0 Else iHeightTemp Round iHeight 0 1 End If vaspread RowHeight ActiveRow 1 iHeightTemp 12 Else SetText i ActiveRow 1 Temp End If Next i End With 插入行 删除行 With vaspread If i 1 Then InsertRows ActiveRow 1 1 ElseIf i 2 Then GetText COL FID ActiveRow fid DeleteRows ActiveRow 1 If fid Then DateMoving fid End If End If End With 1 设置滚动条 有时候需要设置滚动条不可见就可以通过这里进行设置 设置序号 15 修改数据 这儿需要定义两个全局变量 Dim dctFront as KFO Dictionary Dim vctFront as KFO Vector If fid Then Set dctFront New KFO Dictionary dctFront fid fid dctFront filename GetFieldName vaspread ActiveCol If ActiveCol FhwBoolIn 2 FWhetherAssessment Or ActiveCol FhwBoolIn 2 FBusinessConfirmState Or ActiveRow FhwBoolIn 2 FSettlementState Or ActiveCol FhwBoolIn 2 FSignTheBillState Then If Trim Temp 是 Then dctFront value 1 ElseIf Trim Temp Or Trim Temp 是 Then dctFront value 0 End If Else dctFront value Temp End If vctFront Add dctFront Set dctFront Nothing 定义需要拿到的字段名称 Private Function GetFieldName ByVal i As Integer As String If i SpreadCol COL ID Then GetFieldName Fid ElseIf i SpreadCol FhwBoolIn 2 FMaterialsType FIndex Then GetFieldName FIndex ElseIf i FhwBoolIn 2 FSubcontractorName Then GetFieldName FSubcontractorName endif End sub I 为需要修改的列数 16 进行修改数据 Set dctFront New KFO Dictionary If vctFront UBound 0 Then For i vctFront LBound To vctFront UBound Set dctFront vctFront Item i If dctFront filename Then Ssql update t quota entry table set Ssql Ssql vbCrLf dctFront filename Replace dctFront value Ssql Ssql vbCrLf where fid dctFront fid Set obill CreateObject BillDataAccess GetData obill ExecuteSQL DEMMTS PropsString Ssql ModifyFlag True End If Next i Set dctFront Nothing Set vctFron