Function NextNonEmptyColumnInRow( _
   ByVal row As Integer, _
   ByVal column As Integer _
) As Integer

Dim instance As IOptimizedEnumerationSupport
Dim row As Integer
Dim column As Integer
Dim value As Integer
 
value = instance.NextNonEmptyColumnInRow(row, column)

int NextNonEmptyColumnInRow( 
   int row,
   int column
)

FarPoint.Web.Spread.Model.IOptimizedEnumerationSupport oes;
Random r = new Random(); 
int countc, countr; 
int i, j; 
for (i = 0; i<=1; i++) 
{ 
     for (j = 0; j<=2; j++) 
          FpSpread1.ActiveSheetView.SetValue(i, j, r.Next(1, 200).ToString()); 
} 
oes = (FarPoint.Web.Spread.Model.IOptimizedEnumerationSupport)FpSpread1.ActiveSheetView.DataModel; 
int ret = oes.NextNonEmptyColumnInRow(1, 1);
string msg = "The next non-empty column is " + ret.ToString();
Response.Write("<script language='javascript'>alert('" + msg + "')</script>");

Dim oes As FarPoint.Web.Spread.Model.IOptimizedEnumerationSupport
Dim r As New Random
Dim i, j As Integer
Dim countc, countr As Integer
For i = 0 To 1
     For j = 0 To 2
          FpSpread1.ActiveSheetView.SetValue(i, j, r.Next(1, 200).ToString())
     Next j
Next i
oes = FpSpread1.ActiveSheetView.DataModel
Dim ret As Integer = oes.NextNonEmptyColumnInRow(1, 1)
Dim msg As String = "The next non-empty column is " & ret.ToString()
Response.Write("<script language='javascript'>alert('" & msg & "')</script>")