データ連結しLayoutCellのRowSpanを2以上に設定すると行全体のペースト処理が正しく機能しない

文書番号 : 38364     文書種別 : 不具合     登録日 : 2015/05/01     最終更新日 : 2015/06/02
文書を印刷する
対象製品
SPREAD for ASP.NET 8.0J
状況
修正済み
詳細
データ連結しLayoutCellのRowSpanを2以上に設定した場合、行全体のペースト処理が正しく機能しません。

【再現手順】

1.新規WebフォームにSPREAD、ObjectDataSourceをひとつずつ配置します
2.Webフォームに下記の再現コードを貼り付け、Web フォームを起動します
3.第1行の行ヘッダをクリックして行全体を選択します
4.Ctrl+Cキーを押下してコピーします
5.SPREADコマンドバーにある挿入ボタンをクリックします
6.挿入された行の行ヘッダをクリックします
7.Ctrl+Vキーを押下してペーストします
--- 該当の行ではない行のセルにデータがペーストされされます

【再現コード】
------------------------------------
Webフォームクラス
------------------------------------
Public Class WebForm1
  Inherits System.Web.UI.Page

  Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    If Page.IsPostBack Then Return

    'Call Test2() ' 行ヘッダのクリックによる行単位のコピー操作ができない(SPREAD上でエラーダイアログ表示)
    Call Test3() ' 行ヘッダのクリックによる行単位のコピー操作が不正になる(本来とは異なるセルにペーストされる)

    ' 行テンプレートの設定
    FpSpread1.ActiveSheetView.LayoutMode = FarPoint.Web.Spread.SheetView.LayoutModeType.RowTemplateLayoutMode
    Dim template1 As FarPoint.Web.Spread.WorksheetTemplate = FpSpread1.ActiveSheetView.WorksheetTemplate
    template1.ColumnCount = 2
    template1.ColumnHeaderTemplate.RowCount = 2
    template1.ColumnHeaderTemplate.LayoutCells(0, 0).RowSpan = 2
    template1.RowTemplate.RowCount = 2
    template1.RowTemplate.LayoutCells(0, 0).RowSpan = 2 ' <== 現象発生に必須の設定
    template1.LayoutCells(0, 0).DataIndex = 0
    template1.LayoutCells(0, 1).DataIndex = 1
    template1.LayoutCells(1, 0).DataIndex = -1
    template1.LayoutCells(1, 1).DataIndex = 2
    template1.LayoutColumns(1).Width = 150
  End Sub

  Private Sub Test2()
    ' データの作成
    Dim dt As New DataTable("TEST")
    dt.Columns.Add("ID", GetType(Int32))
    dt.Columns.Add("A1", GetType(DateTime))
    dt.Columns.Add("A2", GetType(DateTime))
    dt.Rows.Add(1, DateTime.Today, DateTime.Today)
    dt.AcceptChanges()

    ' SPREADの設定
    FpSpread1.ActiveSheetView.AllowInsert = True
    FpSpread1.ActiveSheetView.AutoGenerateColumns = False
    FpSpread1.ActiveSheetView.ColumnCount = 4
    FpSpread1.ActiveSheetView.Columns(0).DataField = "ID"
    FpSpread1.ActiveSheetView.Columns(1).DataField = "A1"
    FpSpread1.ActiveSheetView.Columns(2).DataField = "A2"
    FpSpread1.DataSource = dt
  End Sub

  Private Sub Test3()
    ' SPREADの設定
    FpSpread1.ActiveSheetView.AllowInsert = True
    FpSpread1.ActiveSheetView.AutoGenerateColumns = False
    FpSpread1.ActiveSheetView.ColumnCount = 4
    FpSpread1.ActiveSheetView.Columns(0).DataField = "ID"
    FpSpread1.ActiveSheetView.Columns(1).DataField = "A1"
    FpSpread1.ActiveSheetView.Columns(2).DataField = "A2"
    FpSpread1.ActiveSheetView.DataKeyField = "ID"
    FpSpread1.DataSourceID = "ObjectDataSource1"
  End Sub
End Class

------------------------------------
.aspx body部
------------------------------------
<body>
  <form id="form1" runat="server">
  <div>
    <FarPoint:FpSpread ID="FpSpread1" runat="server" BorderColor="Black" BorderStyle="Solid" BorderWidth="1px" Height="200" Width="400">
      <commandbar backcolor="Control" buttonfacecolor="Control" buttonhighlightcolor="ControlLightLight" buttonshadowcolor="ControlDark">
      </commandbar>
      <sheets>
        <FarPoint:SheetView SheetName="Sheet1">
        </FarPoint:SheetView>
      </sheets>
    </FarPoint:FpSpread>
    <asp:ObjectDataSource ID="ObjectDataSource1" runat="server" InsertMethod="InsertTest" SelectMethod="GetTest" TypeName="TestClass" UpdateMethod="UpdateTest">
      <InsertParameters>
        <asp:Parameter Name="ID" Type="Int32" />
        <asp:Parameter Name="A1" Type="DateTime" />
        <asp:Parameter Name="A2" Type="DateTime" />
      </InsertParameters>
      <UpdateParameters>
        <asp:Parameter Name="ID" Type="Int32" />
        <asp:Parameter Name="A1" Type="DateTime" />
        <asp:Parameter Name="A2" Type="DateTime" />
      </UpdateParameters>
    </asp:ObjectDataSource>
  </div>
  </form>
</body>

------------------------------------
TestClass.vb
------------------------------------
Imports Microsoft.VisualBasic
Imports System
Imports System.Web
Imports System.Data
Imports System.ComponentModel
Imports System.Linq
Imports System.Data.Linq

Public Class TestClass
  Private ds As DataSet = New System.Data.DataSet()
  
  ‘ パス情報はご利用の環境に応じて任意にご設定ください
  Private filePath As String = HttpContext.Current.Server.MapPath("~/InFiles/test.xml")

  Public Sub New()
    ds.ReadXml(filePath, XmlReadMode.ReadSchema)
  End Sub

  Public Function GetTest() As DataSet
    Return ds
  End Function

  Public Sub UpdateTest(ByVal ID As Integer, A1 As DateTime, A2 As DateTime)
    System.Diagnostics.Debug.Print("UpdateTest: {0},{1},{2}", ID, A1, A2)
  End Sub

  Public Sub InsertTest(ByVal ID As Integer, A1 As DateTime, A2 As DateTime)
    System.Diagnostics.Debug.Print("InsertTest: {0},{1},{2}", ID, A1, A2)
  End Sub
End Class

------------------------------------
Test.xml
------------------------------------
<?xml version="1.0" standalone="yes"?>
<dsTestA>
 <xs:schema id="dsTestA" xmlns="" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
  <xs:element name="dsTestA" msdata:IsDataSet="true" msdata:UseCurrentLocale="true">
   <xs:complexType>
    <xs:choice minOccurs="0" maxOccurs="unbounded">
     <xs:element name="test">
      <xs:complexType>
       <xs:sequence>
        <xs:element name="ID" type="xs:int" />
        <xs:element name="A1" type="xs:dateTime" minOccurs="0" />
        <xs:element name="A2" type="xs:dateTime" minOccurs="0" />
       </xs:sequence>
      </xs:complexType>
     </xs:element>
    </xs:choice>
   </xs:complexType>
   <xs:unique name="Constraint1" msdata:PrimaryKey="true">
    <xs:selector xpath=".//test" />
    <xs:field xpath="ID" />
   </xs:unique>
  </xs:element>
 </xs:schema>
 <test>
  <ID>1</ID>
  <A1>2000-01-01T00:00:00+09:00</A1>
  <A2>2015-01-01T00:00:00+09:00</A2>
 </test>
 <test>
  <ID>2</ID>
  <A1>2000-12-31T00:00:00+09:00</A1>
  <A2>2015-12-31T00:00:00+09:00</A2>
 </test>
</dsTestA>
回避方法
Service Pack 1(v8.0.4001.2010)で修正済み。