Chromeで階層表示を行うと、複数の階層を展開できない
対象製品
SPREAD for ASP.NET 8.0J
発生環境
Chrome v43
状況
修正済み
詳細
Chromeでの起動時、二つ以上の階層を同時に展開することができません。
【再現手順】
1.新規WebフォームにSPREADを配置する
2.Webフォームに下記の再現コードを貼り付け、Web フォームをChromeで起動する
3.階層を展開する
--- SPREAD上にある階層のうち一つしか展開できず、それ以降は折りたたまれている行の"+"アイコンをクリックしても表示に変化がおきません。
【再現コード】
------------------------------------
Webフォームクラス
------------------------------------
Public Class _Default
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
Dim maxRows As Integer = 1
Dim ds As New DataSet()
ds.EnforceConstraints = False
Dim dt1 As DataTable = ds.Tables.Add("Level1")
dt1.DefaultView.AllowNew = False
dt1.Columns.Add("L1_A", GetType(Int32))
For i As Integer = 0 To maxRows
dt1.Rows.Add(i)
Next
Dim dt2 As DataTable = ds.Tables.Add("Level2")
dt2.DefaultView.AllowNew = False
dt2.Columns.Add("L2_A", GetType(Int32))
dt2.Columns.Add("L2_B", GetType(Int32))
For i As Integer = 0 To maxRows
For j As Integer = 0 To maxRows
dt2.Rows.Add(i, j)
Next
Next
ds.Relations.Add("Relation1_2", dt1.Columns("L1_A"), dt2.Columns("L2_A"))
' SPREADの設定
FpSpread1.Height = 800
FpSpread1.Width = 800
FpSpread1.UseClipboard = False
FpSpread1.ActiveSheetView.DataSource = ds
End Sub
End Class
【再現手順】
1.新規WebフォームにSPREADを配置する
2.Webフォームに下記の再現コードを貼り付け、Web フォームをChromeで起動する
3.階層を展開する
--- SPREAD上にある階層のうち一つしか展開できず、それ以降は折りたたまれている行の"+"アイコンをクリックしても表示に変化がおきません。
【再現コード】
------------------------------------
Webフォームクラス
------------------------------------
Public Class _Default
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
Dim maxRows As Integer = 1
Dim ds As New DataSet()
ds.EnforceConstraints = False
Dim dt1 As DataTable = ds.Tables.Add("Level1")
dt1.DefaultView.AllowNew = False
dt1.Columns.Add("L1_A", GetType(Int32))
For i As Integer = 0 To maxRows
dt1.Rows.Add(i)
Next
Dim dt2 As DataTable = ds.Tables.Add("Level2")
dt2.DefaultView.AllowNew = False
dt2.Columns.Add("L2_A", GetType(Int32))
dt2.Columns.Add("L2_B", GetType(Int32))
For i As Integer = 0 To maxRows
For j As Integer = 0 To maxRows
dt2.Rows.Add(i, j)
Next
Next
ds.Relations.Add("Relation1_2", dt1.Columns("L1_A"), dt2.Columns("L2_A"))
' SPREADの設定
FpSpread1.Height = 800
FpSpread1.Width = 800
FpSpread1.UseClipboard = False
FpSpread1.ActiveSheetView.DataSource = ds
End Sub
End Class
回避方法
Service Pack 1(v8.0.4001.2010)で修正済み。