I had to so something similar.. maybe something like this would work.

Paul


oData = Framework.VFPSQLAdapterDataView("SELECT UPPER(Key) +'-' + UPPER(Module) as pkid, UPPER(Key) AS Key,UPPER(Module) AS Module,French,English FROM Message", toForm.lcStartupDirectory)

dim nrow as integer

lcKey = UCase(tcKey).PadRight(25, " ")
lcModule = UCase(tcModule).PadRight(20, " ")



odata.Sort = "pkid"
nrow = odata.Find(lckey & "-" & lcmodule)

If nrow <> -1 Then
Select Case tnLanguage

' French
Case 1
lcString = oData(nrow).Row("French")

' English
Case 2
lcString = oData(nrow).Row("English")

End Select


End If


Return Trim(lcString)