FarPoint.Win.Spread.SpreadView sv;
ArrayList cwb;
if (fpSpread1.ActiveSheet.DataSource == null)
{
MessageBox.Show("You must first click the Bind database menu item.");
return;
}
cwb =fpSpread1.GetRootWorkbook().GetChildWorkbooks();
sv = (FarPoint.Win.Spread.SpreadView) cwb[0];
listBox1.Items.Add(sv.Parent.ToString());
Dim sv As FarPoint.Win.Spread.SpreadView
Dim cwb As ArrayList
If FpSpread1.ActiveSheet.DataSource Is Nothing Then
MessageBox.Show("You must first click the Bind database menu item.")
Exit Sub
End If
cwb = FpSpread1.GetRootWorkbook.GetChildWorkbooks
sv = CType(cwb(0), FarPoint.Win.Spread.SpreadView)
ListBox1.Items.Add(sv.Parent.ToString)