データ連結しLayoutCellのRowSpanを2以上に設定すると行全体のペースト処理が正しく機能しない
対象製品
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>
【再現手順】
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)で修正済み。