如何动态添加sheet

收藏

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

LeeDongmei · LeeDongmei

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

ZenosZeng · ZenosZeng

LeeDongmei 你好

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

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

protected void Page_Load(object sender, EventArgs e)
{
FpSpread1.Sheets.Clear();
DataTable dt1 = new DataTable();
dt1.TableName = "Table1";
dt1.Columns.Add("Col1");
for (int i = 0; i < 10; i++)
{
dt1.Rows.Add(i.ToString());
}
SheetView view1 = new SheetView();
view1.SheetName = dt1.TableName;
view1.DataSource = dt1;
FpSpread1.Sheets.Add(view1);
DataTable dt2 = new DataTable();
dt2.TableName = "Table2";
dt2.Columns.Add("Col2");
for (int i = 0; i < 10; i++)
{
dt2.Rows.Add(i.ToString());
}
SheetView view2 = new SheetView();
view2.SheetName = dt2.TableName;
view2.DataSource = dt2;
FpSpread1.Sheets.Add(view2);
DataTable dt3 = new DataTable();
dt3.TableName = "Table3";
dt3.Columns.Add("Col3");
for (int i = 0; i < 10; i++)
{
dt3.Rows.Add(i.ToString());
}
SheetView view3 = new SheetView();
view3.SheetName = dt3.TableName;
view3.DataSource = dt3;
FpSpread1.Sheets.Add(view3);
}

复制代码

LeeDongmei · LeeDongmei

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

ZenosZeng · ZenosZeng

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

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

// 假设三月份又以下厂家信息
System.Collections.Generic.List<string> names = new System.Collections.Generic.List<string>();
names.Add("厂家一");
names.Add("厂家二");
names.Add("厂家三");
names.Add("厂家四");
names.Add("厂家五");
// 创建每个厂家的实际数据
DataSet ds = new DataSet();
foreach (string name in names)
{
DataTable dt = new DataTable(name);
dt.Columns.Add("Col1");
for (int i = 0; i < 10; i++)
{
dt.Rows.Add(i);
}
ds.Tables.Add(dt);
}

复制代码

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

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

复制代码

完整代码：

protected void Page_Load(object sender, EventArgs e)
{
if (IsPostBack)
return;
FpSpread1.Sheets.Clear();
// 假设三月份又以下厂家信息
System.Collections.Generic.List<string> names = new System.Collections.Generic.List<string>();
names.Add("厂家一");
names.Add("厂家二");
names.Add("厂家三");
names.Add("厂家四");
names.Add("厂家五");
// 创建每个厂家的实际数据
DataSet ds = new DataSet();
foreach (string name in names)
{
DataTable dt = new DataTable(name);
dt.Columns.Add("Col1");
for (int i = 0; i < 10; i++)
{
dt.Rows.Add(i);
}
ds.Tables.Add(dt);
}
// 将每个厂家的信息通Spread显示出来
foreach (DataTable dt in ds.Tables)
{
SheetView view = new SheetView();
view.SheetName = dt.TableName;
view.DataSource = dt;
FpSpread1.Sheets.Add(view);
}
}

复制代码

LeeDongmei · LeeDongmei

谢谢！先试下。

ZenosZeng · ZenosZeng

好的，你先试一试

LeeDongmei · LeeDongmei

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

图片1.png (115.1 KB, 下载次数: 249)

LeeDongmei · LeeDongmei

部分代码如下，请参考：
               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" & (numn + 1) & "")
                        name = "tab" & (numn + 1) & ""
                        Dim t As Integer
                        t = db1.Tables("tab" & (numn + 1) & "").Rows.Count
                        Dim newsheet As New FarPoint.Web.Spread.SheetView
                        newsheet.SheetName = "'P-" & term & " 天 " & mon & "'"
                        FpSpread2.Sheets.Add(newsheet)
                        Dim model1 As FarPoint.Web.Spread.Model.DefaultSheetDataModel
                        model1 = New FarPoint.Web.Spread.Model.DefaultSheetDataModel(db1.Tables("tab" & (numn + 1) & ""))
                        FpSpread2.Sheets(numn).DataModel = model1
                        FpSpread2.Sheets(numn).SheetName = "'P-" & term & " 天 " & mon & "'"
                        FpSpread2.Sheets(numn).ColumnHeader.Cells(0, 0).Text = "" & yy & " 年" & mm & "月験収実際一覧表(" & term & " 天/" & mon & ")"
                        FpSpread2.Sheets(numn).ColumnHeader.Cells(0, 0).Font.Size = 20

                        numdbcount = db1.Tables("tab" & (numn + 1) & "").Rows.Count
                        For n = 0 To numdbcount - 1
                              FpSpread2.Sheets(m).Cells(n, 0).Text = n + 1
                        Next
                        db1.Tables("tab" & (numn + 1) & "").Rows.Add()
                        FpSpread2.Sheets(numn).Cells(n, 0).Text = "合计"
                        FpSpread2.Sheets(numn).Cells((numdbcount), 3).Formula = "sum(D1

" & n & ")"
                        FpSpread2.Sheets(numn).Cells((numdbcount), 4).Formula = "sum(E1:E" & n & ")"
                        FpSpread2.Sheets(numn).Cells((numdbcount), 5).Formula = "sum(F1:F" & n & ")"

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

ZenosZeng · ZenosZeng

附件中的工程环境是 VS2008 + Spread for .net 4.0

4197_Sheet.zip (2.33 MB, 下载次数: 192)

		自动登录	找回密码
密码			立即注册

如何动态添加sheet

14 个回复

活字格认证

微信认证勋章

元老葡萄

圣诞拼拼乐

讲师达人

悬赏达人