如何动态添加sheet

如题：
我想在spread中动态添加若干个sheet，sheet的数量由数据库里的数据决定，sheet名也定义为数据库里的值，请问如何实现？
我的作业环境是IE6+spread4.0 for asp.net+sql2000

追加：开发工具还有vs2008---VB

LeeDongmei 你好

我对你的需求是这样理解的，你从数据库中得到一个查询结果，存放到一个DataSet或者多个DataTable中，然后Sheet的数量又DataSet中Table的数量决定，每个Table需要填充到一个Sheet上。不知理解是否和你的需求相同，如有差异请指出。

按照我的理解，又以下实现方法：

1.         protected void Page_Load(object sender, EventArgs e)
   
2.         {
   
3.             FpSpread1.Sheets.Clear();
   
4. 
   
5.             DataTable dt1 = new DataTable();
   
6.             dt1.TableName = "Table1";
   
7.             dt1.Columns.Add("Col1");
   
8.             for (int i = 0; i < 10; i++)
   
9.             {
   
10.                 dt1.Rows.Add(i.ToString());
    
11.             }
    
12.             SheetView view1 = new SheetView();
    
13.             view1.SheetName = dt1.TableName;
    
14.             view1.DataSource = dt1;
    
15.             FpSpread1.Sheets.Add(view1);
    
16. 
    
17. 
    
18.             DataTable dt2 = new DataTable();
    
19.             dt2.TableName = "Table2";
    
20.             dt2.Columns.Add("Col2");
    
21.             for (int i = 0; i < 10; i++)
    
22.             {
    
23.                 dt2.Rows.Add(i.ToString());
    
24.             }
    
25.             SheetView view2 = new SheetView();
    
26.             view2.SheetName = dt2.TableName;
    
27.             view2.DataSource = dt2;
    
28.             FpSpread1.Sheets.Add(view2);
    
29. 
    
30.             DataTable dt3 = new DataTable();
    
31.             dt3.TableName = "Table3";
    
32.             dt3.Columns.Add("Col3");
    
33.             for (int i = 0; i < 10; i++)
    
34.             {
    
35.                 dt3.Rows.Add(i.ToString());
    
36.             }
    
37.             SheetView view3 = new SheetView();
    
38.             view3.SheetName = dt3.TableName;
    
39.             view3.DataSource = dt3;
    
40.             FpSpread1.Sheets.Add(view3);
    
41.         }

复制代码

和我的问题多少有些差异。我的问题用具体事例解释：
我有许多条购入实际数据，是从多个厂家买来的。我想做付款汇总，每个厂家的数据要放在一个sheet中，sheet名要以厂家命名。但每个月厂家的数量是变化的，可多可少，根据实际购买决定。因此，我的sheet的数量是不确定的。如何定义SheetView view1 = new SheetView(); 因为这里的view1是固定的，而我需要变量。

Spread中Sheet的数量可以根据数据源中DataTable的数量来动态生成

假设三月份的厂家信息如下：

1.     // 假设三月份又以下厂家信息
   
2.     System.Collections.Generic.List<string> names = new System.Collections.Generic.List<string>();
   
3.     names.Add("厂家一");
   
4.     names.Add("厂家二");
   
5.     names.Add("厂家三");
   
6.     names.Add("厂家四");
   
7.     names.Add("厂家五");
   
8. 
   
9.     // 创建每个厂家的实际数据
   
10.     DataSet ds = new DataSet();
    
11.     foreach (string name in names)
    
12.     {
    
13.         DataTable dt = new DataTable(name);
    
14.         dt.Columns.Add("Col1");
    
15.         for (int i = 0; i < 10; i++)
    
16.         {
    
17.             dt.Rows.Add(i);
    
18.         }
    
19.         ds.Tables.Add(dt);
    
20.     }

复制代码

然后根据厂家的数量来动态添加Sheet：

1.     // 将每个厂家的信息通Spread显示出来
   
2.     foreach (DataTable dt in ds.Tables)
   
3.     {
   
4.         SheetView view = new SheetView();
   
5.         view.SheetName = dt.TableName;
   
6.         view.DataSource = dt;
   
7.         FpSpread1.Sheets.Add(view);
   
8.     }

复制代码

完整代码：

1.         protected void Page_Load(object sender, EventArgs e)
   
2.         {
   
3.             if (IsPostBack)
   
4.                 return;
   
5. 
   
6.             FpSpread1.Sheets.Clear();
   
7. 
   
8.             // 假设三月份又以下厂家信息
   
9.             System.Collections.Generic.List<string> names = new System.Collections.Generic.List<string>();
   
10.             names.Add("厂家一");
    
11.             names.Add("厂家二");
    
12.             names.Add("厂家三");
    
13.             names.Add("厂家四");
    
14.             names.Add("厂家五");
    
15. 
    
16.             // 创建每个厂家的实际数据
    
17.             DataSet ds = new DataSet();
    
18.             foreach (string name in names)
    
19.             {
    
20.                 DataTable dt = new DataTable(name);
    
21.                 dt.Columns.Add("Col1");
    
22.                 for (int i = 0; i < 10; i++)
    
23.                 {
    
24.                     dt.Rows.Add(i);
    
25.                 }
    
26.                 ds.Tables.Add(dt);
    
27.             }
    
28. 
    
29.             // 将每个厂家的信息通Spread显示出来
    
30.             foreach (DataTable dt in ds.Tables)
    
31.             {
    
32.                 SheetView view = new SheetView();
    
33.                 view.SheetName = dt.TableName;
    
34.                 view.DataSource = dt;
    
35.                 FpSpread1.Sheets.Add(view);
    
36.             }
    
37. 
    
38.         }

复制代码

谢谢！先试下。

好的，你先试一试

版主您好！
运用您的方法，我这里可以动态生成sheet，谢谢！
但是，通过这种方法生成的sheet，在IE中，只有一个sheet的内容可见，其它sheet的名称可见，但选择不了，单击没有任何反应。应该是单击哪个sheet就显示哪个sheet的数据内容呀。截图如下：
图片1.png (115.1 KB, 下载次数: 249)

2012-5-3 14:56 上传

点击文件名下载附件
png
烦请判断一下原因。

部分代码如下，请参考：  
                  comm.CommandText = (strSQL1)
                    comm.Connection = dbcnt400
                    commreader = comm.ExecuteReader
                    numn = 0
                    While commreader.Read

                        If commreader.GetValue(0).ToString <> "" Then
                            term = commreader.GetValue(0)
                            mon = commreader.GetValue(1)

                            Dim ts As Integer
                            ts = FpSpread2.Sheets.Count
                            Call sql11()
                            Adapter1 = New OleDbDataAdapter(strSQL1, dbcnt400)
                            Adapter1.Fill(db1, "tab" &amp; (numn + 1) &amp; "")
                            name = "tab" &amp; (numn + 1) &amp; ""
                            Dim t As Integer
                            t = db1.Tables("tab" &amp; (numn + 1) &amp; "").Rows.Count
                            Dim newsheet As New FarPoint.Web.Spread.SheetView
                            newsheet.SheetName = "'P-" &amp; term &amp; " 天 " &amp; mon &amp; "'"
                            FpSpread2.Sheets.Add(newsheet)
                            Dim model1 As FarPoint.Web.Spread.Model.DefaultSheetDataModel
                            model1 = New FarPoint.Web.Spread.Model.DefaultSheetDataModel(db1.Tables("tab" &amp; (numn + 1) &amp; ""))
                            FpSpread2.Sheets(numn).DataModel = model1
                            FpSpread2.Sheets(numn).SheetName = "'P-" &amp; term &amp; " 天 " &amp; mon &amp; "'"
                            FpSpread2.Sheets(numn).ColumnHeader.Cells(0, 0).Text = "" &amp; yy &amp; " 年" &amp; mm &amp; "月験収実際一覧表(" &amp; term &amp; " 天/" &amp; mon &amp; ")"
                            FpSpread2.Sheets(numn).ColumnHeader.Cells(0, 0).Font.Size = 20

                            numdbcount = db1.Tables("tab" &amp; (numn + 1) &amp; "").Rows.Count
                            For n = 0 To numdbcount - 1
                                FpSpread2.Sheets(m).Cells(n, 0).Text = n + 1
                            Next
                            db1.Tables("tab" &amp; (numn + 1) &amp; "").Rows.Add()
                            FpSpread2.Sheets(numn).Cells(n, 0).Text = "合计"
                            FpSpread2.Sheets(numn).Cells((numdbcount), 3).Formula = "sum(D1" &amp; n &amp; ")"
                            FpSpread2.Sheets(numn).Cells((numdbcount), 4).Formula = "sum(E1:E" &amp; n &amp; ")"
                            FpSpread2.Sheets(numn).Cells((numdbcount), 5).Formula = "sum(F1:F" &amp; n &amp; ")"

                            numn = numn + 1
                        Else
                        End If
                    End While
                    m = m + numn
                    ViewState("m") = m

附件中的工程环境是 VS2008 + Spread for .net 4.0
4197_Sheet.zip (2.33 MB, 下载次数: 192)

2012-5-3 16:39 上传

点击文件名下载附件
zip

因为你的代码中涉及数据库查询，我这边简单模拟了动态添加Sheet的过程，然后在IE6中运行，可以正常切换Sheet，你那边运行看是否正常