.MergeRow(Row) = True '允许合并行
.MergeCells = 0123456 '合并选项
.Cell(选项准则, Row1, Col1, Row2, Col2) '选择部分的相应准则值
.EditCell '当移动到当前单元时自动选择
.EditSelStart '移动到单元时的光标位置
.MousePointer '设置对象的鼠标指针样式 O.A = 0 到 1599
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
几个特殊的属性方法的使用：
FormatString 属性：管道符格式化字符串示例：
下面定义对齐方式同字意，列宽窄同距离
VSG1.FormatString = "^ 中 < 左 > 右 > 右 ^ 中 "
+++++++++++++++++++++++++
搜索(查找)表格中符合条件的行：
FindRow 属性：该属性返回一个行值
MsgBox VSG1.FindRow(关键词,[指定行],[指定列],[敏感],[精度])
关键词：String，表示要搜索的字符串
指定行/指定列：Long，表示只在指定的行或列中找
敏感：Boolean，
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
'限制只能在指定列输入(这里默认倒数第2列)
Private Sub VSG1_BeforeRowColChange(ByVal OldRow As Long, _
ByVal OldCol As Long, ByVal NewRow As Long, _
ByVal NewCol As Long, Cancel As Boolean)
VSG1.Editable = flexEDKbd
If VSG1.Redraw <> flexRDNone And NewCol <> VSG1.Cols - 2 Then
Cancel = True
VSG1.Select NewRow, VSG1.Cols - 2
End If
End Sub
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
限制不能编辑某些列：(这里限制第1列和第3列)
Private Sub VSG1_RowColChange()
If VSG1.Col = 1 Or VSG1.Col = 3 Then
上一篇:使用分页查询来适应挖掘海量数据的需求
下一篇:提纲挈领Oracle数据库灾难防护技术
|
精品推荐