FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread.Model 名前空間 > GroupDataModel クラス : GetItem メソッド |
'Declaration Public Function GetItem( _ ByVal row As Integer _ ) As IEditableObject
'使用法 Dim instance As GroupDataModel Dim row As Integer Dim value As IEditableObject value = instance.GetItem(row)
public IEditableObject GetItem( int row )
fpSpread1.AllowColumnMove = true; fpSpread1.ActiveSheet.GroupBarInfo.Visible = true; fpSpread1.ActiveSheet.AllowGroup = true; FarPoint.Win.Spread.GroupInfo gi = new FarPoint.Win.Spread.GroupInfo(); gi.BackColor = Color.Yellow; FarPoint.Win.Spread.GroupInfo gi2 = new FarPoint.Win.Spread.GroupInfo(); gi2.BackColor = Color.Green; FarPoint.Win.Spread.GroupInfoCollection gic = new FarPoint.Win.Spread.GroupInfoCollection(); gic.AddRange(new FarPoint.Win.Spread.GroupInfo[] { gi, gi2 }); fpSpread1.ActiveSheet.GroupInfos.Add(gic[0]); private void button1Click(object sender, EventArgs e) { FarPoint.Win.Spread.Model.GroupDataModel gm; if ((fpSpread1.ActiveSheet.Models.Data) is FarPoint.Win.Spread.Model.GroupDataModel) { gm = (FarPoint.Win.Spread.Model.GroupDataModel)fpSpread1.ActiveSheet.Models.Data; System.ComponentModel.IEditableObject o; o = gm.GetItem(1); if (o is System.Data.DataRowView) { System.Data.DataRowView dr; dr = (System.Data.DataRowView)o; dr.Delete(); } } }
FpSpread1.AllowColumnMove = True FpSpread1.ActiveSheet.GroupBarInfo.Visible = True FpSpread1.ActiveSheet.AllowGroup = True Dim gi As New FarPoint.Win.Spread.GroupInfo gi.BackColor = Color.Yellow Dim gi2 As New FarPoint.Win.Spread.GroupInfo gi2.BackColor = Color.Green Dim gic As New FarPoint.Win.Spread.GroupInfoCollection() gic.AddRange(New FarPoint.Win.Spread.GroupInfo() {gi, gi2}) FpSpread1.ActiveSheet.GroupInfos.Add(gic(0)) Private Sub Button1Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim gm As FarPoint.Win.Spread.Model.GroupDataModel If TypeOf (FpSpread1.ActiveSheet.Models.Data) Is FarPoint.Win.Spread.Model.GroupDataModel Then gm = FpSpread1.ActiveSheet.Models.Data Dim o As System.ComponentModel.IEditableObject o = gm.GetItem(1) If TypeOf o Is System.Data.DataRowView Then Dim dr As System.Data.DataRowView dr = o dr.Delete() End If End If End Sub