还是那个内嵌excel的保存的新的问题

rmajly

上一贴，从excel文件里找到保存按钮，是可以保存数据了。现在我在窗体上，新建一个按钮，清除数据后保存，就不行了。麻烦高手帮我看一下。谢谢！

[AAuto] 纯文本查看 复制代码

import com;
import com.excel;
import win.ui;
/*DSG{{*/
mainForm = win.form(text="dsoFrame控件测试";right=1191;bottom=769;bgcolor=16448250)
mainForm.add(
button={cls="button";text="清空数据";left=321;top=718;right=421;bottom=751;z=5};
chkMenubar={cls="checkbox";text="显示菜单栏";left=613;top=721;right=716;bottom=748;bgcolor=16448250;z=2};
chkTitlebar={cls="checkbox";text="显示标题栏";left=930;top=721;right=1033;bottom=748;bgcolor=16448250;z=4};
chkToolbars={cls="checkbox";text="显示工具条";left=771;top=721;right=874;bottom=748;bgcolor=16448250;z=3};
custom={cls="custom";text="自定义控件";left=1;top=7;right=1184;bottom=690;bgcolor=16777215;db=1;dl=1;dr=1;dt=1;z=1}
)
/*}}*/

mainForm.show();

import com.dsoFramer;
var dsoFrame = com.dsoFramer(mainForm.custom) 
dsoFrame.menubar = true //去掉菜单栏  
dsoFrame.titlebar = false; //去掉标题栏
dsoFrame.toolbars = false; //去掉工具条
dsoFrame.borderStyle = 0; //去掉边框（默认值）

mainForm.chkToolbars.oncommand = function(id,event){
	dsoFrame.toolbars = mainForm.chkToolbars.checked;	
}

mainForm.chkTitlebar.oncommand = function(id,event){
	dsoFrame.titlebar = mainForm.chkTitlebar.checked;	
}

import fsys.dlg;
var path = "E:\\DIP目录.xlsx"

dsoFrame.openFile(path);
var excel = com.excel( true );

mainForm.button.oncommand = function(id,event){
	book = com.GetObject("Excel.Application");
	sheet1 = book.sheets("sheet1");
    sheet1.UsedRange.clear()//清除表格中旧的数据
    book.ActiveWorkbook.Save(); //保存更改
	excel.Quit();
}

return win.loopMessage();

baker

import win.ui;
/*DSG{{*/
var winform = win.form(text="ReoGrid";right=759;bottom=469)
winform.add(
button={cls="button";text="tab2-button";left=18;top=413;right=143;bottom=457;z=1}
)
/*}}*/

import dotNet.ReoGrid;

//创建控件
var grid = ReoGrid.ReoGridControl(winform);

//当前工作表
var sheet1 = grid.CurrentWorksheet;

//修改数据
sheet1.Cells["A1"].Data = "测试";

//直接显示 aardio 表（字符串数组）
sheet1["B24"] =  {
  { "测试", "测试2" },
  { "测试3", "测试4" },
};

//设置列数据，参数（行索引、列索引，数据），注意 .NET 起始下标为 0
sheet1.SetCellData(5, 2, "hello world");

//设置列数据
sheet1["B3:C5"] =  { { 'a', 'b', 'c' }, { 1, 2, 3 }, { 4, 5, 6 } };

//获取 Range（单元格集合） 对象
var range = sheet1.Ranges["D4:I4"];

//设置 Range 数据
range.Data = { "roduct", "Unit Price", "Quantity", "Extended Price" };

//修改样式（背景颜色） ，参数必须是 ReoGrid.Graphics.SolidColor 对象
range.Style.BackColor = ReoGrid.Graphics.SolidColor.Orange


//高亮区域
sheet1.AddHighlightRange("B24");

///自定义控件
var checkboxCell = ReoGrid.CellTypes.CheckBoxCell();

//响应事件，不用任何封装，aardio 自动支持。
checkboxCell.CheckChanged = function(send,event){
        winform.msgbox(checkboxCell.IsChecked)
}
sheet1["B6"] = checkboxCell;

//保存文件
grid.Save("/test.xlsx");


winform.show();
win.loopMessage();