回复 3楼lime9921的帖子
参考代码如下:
- Private Sub Command1_Click()
-
- Dim ret As Integer
- With fg
- .SetText 2, .ActiveRow, "Price"
- .DAutoSave = False
- ret = .SetCellDirtyFlag(2, .ActiveRow, True)
- ret = .SetCellDirtyFlag(4, .ActiveRow, True)
- .DataSave
- .DAutoSave = True
- End With
- End Sub
复制代码
主要是使用 SetCellDirtyFlag 标记。 |