Example

The following example prefixes all data read into column 2 with an asterisk (*). When the data is written to the database, all the asterisks are replaced with tilde characters (~).

Visual Basic

Sub SS_DataFill (Col As Long, Row As Long, DataType As Integer, fGetData As Integer, Cancel As Integer)
    Dim v As Variant
    Dim buf As String
    Dim ret As Integer
    If fGetData Then
        If Col = 2 Then
            fpSpread1.Col = Col
            fpSpread1.Row = Row
            ret = fpSpread1.GetDataFillData(v, 8)
            v = "*" + v
            fpSpread1.Text = v
            Cancel = True
        End If
        Else
        If Col = 2 Then
            fpSpread1.Col = Col
            fpSpread1.Row = Row
            v = fpSpread1.Text
            Do
            ret = InStr(v, "*")
            If ret Then
                Mid(v, 1, 1) = "~"
            Else
                Exit Do
            End If
            Loop
            ret = fpSpread1.SetDataFillData(v)
            Cancel = True
        End If
    End If
End Sub