回复#4 @admin :

再更新一个MiniExcel读取Excel文件，官网地址：https://gitee.com/dotnetchina/MiniExcel#%E7%AE%80%E4%BB%8B

import win.ui;
/*DSG{{*/
var winform = win.form(text="aardio form";right=759;bottom=469)
winform.add()
/*}}*/

import dotNet;
import System.Windows.Forms;
var Forms = System.Windows.Forms;
var DataGridView = Forms.CreateEmbed("DataGridView",winform);
 
import System.Data; 

dll = dotNet.loadFile("res/MiniExcel.dll")
MELibs = dll.import("MiniExcelLibs")
dt = MELibs.MiniExcel.QueryAsDataTable("C:\Users\Administrator\Desktop\test.xlsx", false, "Sheet1");
dv = System.Data.DataView(dt);

DataGridView.DataSource=dv;
DataGridView.EditMode=2;

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

国人写的，开源免费，据说内存占用少，效率非常高

读写上百万条数据没问题。官网有测试数据对比。

太强大了，强大过头了

Worksheet.AfterCellEdit =function(a,b){
import console
console.open()
console.log(a,b.NewData)
}
reoGridControl1.RunScript("alert('hello world');");

var t=dll.import("unvell.ReoGrid.CellTypes");
worksheet.Cells.Item["D8"].Data=t.ButtonCell("Hello世界");
var button=t.ButtonCell("你好，世界");
worksheet.Cells.Item["D3"].Body=button
worksheet.Cells.Item["D1"].Body=t.HyperlinkCell("https://www.aardio.com/", true);
worksheet.Cells.Item["D2"].Body=t.ProgressCell()
worksheet.Cells.Item["D2"].Data="60%"

var dropdown = t.DropdownListCell(
  "Apple", "Orange", "Banana", "Pear", 
  "Pumpkin", "Cherry", "Coconut"
);

worksheet.Cells.Item["B2"].Data = dropdown;

分享自定义单元格类型的一些用法

回复#32 @hi_aardio :

我在VB.net下用ReoGrid测试了一下，1000万条数据（100000行x100列），保存后的文件大约21M多，完全没问题，用时（包括生成+保存）大约15秒左右。

代码：

Public Class Form1
    Private Sub ReoGridControl1_DoubleClick(sender As Object, e As EventArgs) Handles ReoGridControl1.DoubleClick

        ReoGridControl1.CurrentWorksheet.AppendRows(100000)
        ReoGridControl1.CurrentWorksheet.AppendColumns(100)

        For row = 1 To 100000
            For col = 1 To 100
                ReoGridControl1.CurrentWorksheet.SetCellData(row, col, "Hello VB.net")
            Next
        Next

        ReoGridControl1.Save("C:\Users\Administrator\Documents\dotNetProject\VB20220326\output.xlsx")



    End Sub
End Class

回复#2 @the100s :

请问下 编辑怎么取整行的数据，然后编辑回车好像不起效果

回复#5 @andrew7baker :

可以用UsedRange先获取有数据的范围，然后再遍历整行数据。

编辑的话，好像只能一个个单元格编辑。

反正用循环还是挺快的。

楼上 我提的问题应该是：如何获取编辑的当前row的所有 cell，因为我接了数据库要更新编辑行的数据。

怎么能获取编辑行的positon

回复#8 @andrew7baker :

UsedRange 就是获取有数据的单元格范围。

有了UsedRange以后就可以用.Rows.Count和.Columns.Count获取最大行数和列数。

剩下遍历就可以了。

回复#8 @andrew7baker :

b.pos

参考https://reogrid.net/document/script-execution/的

ondatachange event小节

楼主：1.unvell.ReoGrid.zip 例子中，键盘输入 到达不了控件，是dotNet的问题吗？

2.现在的情况是控件显示了界面，但按键盘上下左右和回车键控件内没有反应；

3.请问怎么解决dotNet控件键盘消息输入的问题，或拦截输入给控件的键盘消息？

像System库一样 定义用户库 unvell.ReoGrid

import dotNet;

dotNet.reference({
  ["Antlr3.Runtime"] = $"~/lib/unvell/ReoGrid/.res/Antlr3.Runtime.dll";
  ["unvell.ReoGrid"] = $"~/lib/unvell/ReoGrid/.res/unvell.ReoGrid.dll";
  ["unvell.ReoScript"] = $"~/lib/unvell/ReoGrid/.res/unvell.ReoScript.dll";
});

dotNet.import("unvell.ReoGrid")

// Change the context strip menu languages
with unvell.ReoGrid.LanguageResource {
	Menu_InsertSheet = "插入";
	Menu_DeleteSheet = "删除";
	Menu_RenameSheet = "重命名...";	
	Sheet_RenameDialog_Title = "重命名工作表";
	Sheet_RenameDialog_NameLabel = "名称(&N): ";
	Button_OK = "确定";
	Button_Cancel = "取消";
}

/**intellisense()
unvell.ReoGrid = .Net unvell.ReoGrid 名字空间\n!dotNetNameSpace.
end intellisense**/

然后导入 unevll.ReoGrid 就可以像C#一样用了

import win.ui;
/*DSG{{*/
mainForm = win.form(text="ReoGrid";right=757;bottom=467)
mainForm.add()
/*}}*/

import console
import unvell.ReoGrid
import System.Windows.Forms

var grid = unvell.ReoGrid.ReoGridControl()

//绑定界面
System.Windows.Forms.CreateEmbed(grid, mainForm)

var sheet = grid.CurrentWorksheet;
sheet.Cells.Item["D7"].Data = "aardio";

var script = `workbook.currentWorksheet.getCell("B1").data = 'hello world';`;
grid.RunScript(script);

//grid.SetSettings(unvell.ReoGrid.WorkbookSettings.View_ShowSheetTabControl, false);
grid.SheetTabWidth = 250
 
sheet.SelectionRange = unvell.ReoGrid.RangePosition("B3:F5");
//sheet.SelectionStyle = unvell.ReoGrid.WorksheetSelectionStyle.FocusRect;
//sheet.SelectionMode = unvell.ReoGrid.WorksheetSelectionMode.Row;

sheet.BeforeCellKeyDown = function(s, e){
	//console.log( e.KeyCode)
}

var setCellFocus = function(row, col){
	sheet.FocusPos = unvell.ReoGrid.CellPosition(row, col);
	sheet.StartEdit()
}

mainForm.isDialogMessage = function(hwnd,msg){
	if( msg.message == 0x100/*_WM_KEYDOWN*/){
		var focusPos = sheet.FocusPos;
		select(msg.wParam) {
			case 0xD/*_VK_RETURN*/{				
				setCellFocus(focusPos.Row + 1,  focusPos.Col - 1)
			}
			case 0x9/*_VK_TAB*/{
				setCellFocus( focusPos.Row,  focusPos.Col + 1 )
			}
		}
	}
	return ;
}

mainForm.show();
return win.loopMessage();

ReoGrid.zip

回复#13 @大山 :

winform 默认处理一些按键消息

重写isDialogMessage就好了。

具体看楼上代码

回复#8 @andrew7baker :

sheet.CellMouseDown = function(s, e){
	var pos = sheet.CreateAndGetCell(e.CellPosition); 
	console.log( pos, pos.Row, pos.Column )
}

回复#6 @jerryxjr1220 :

setCellData 最后一个参数是可以用数组的

回复#17 @codex :

高手，学习了！

ReoGrid create memory workbook

import console; 
import unvell.ReoGrid

// create memory workbook instance
var grid = unvell.ReoGrid.ReoGridControl.CreateMemoryWorkbook();

// get worksheet 1 (by default, a workbook contains a default empty worksheet)
var sheet = grid.Worksheets[1];

// set data into cell A1 
sheet.Cells.Item["A1"].Data = "aardio";

// set data into cell A2, B2, C2, D2
sheet.Cells.Item["A2"].Data = 10
sheet.Cells.Item["B2"].Data = 20
sheet.Cells.Item["C2"].Data = "=A2+B2"
sheet.Cells.Item["D2"].Data = "=SUM(B2:C2)"


// set data into cell[2,0]
var data = dotNet.object({
	{10, 20, "=A3*B3", "=SUM(A3:C3)"},
	{17, 28, "=A4*B4", "=SUM(A4:C4)"}
})
sheet.SetCellData(2, 0, data)


// Add customize formula functions
FormulaExtension = unvell.ReoGrid.Formula.FormulaExtension
/*
FormulaExtension.CustomFunctions.Item["myFunc"] = function(cell, args){
	if (args.Length == 0)  return null;
    return string.upper( args[1] )
}
*/
// The CustomFunctions type is a dictionary, so we can call the Add() method 
FormulaExtension.CustomFunctions.Add("myFunc", function(cell, args){
	if (args.Length == 0)  return null;
    return string.upper( args[1] )
})

sheet.Cells.Item["A5"].Data = `=myFunc("aardio")`;


// Customize name reference provider
unvell.ReoGrid.Formula.FormulaExtension.NameReferenceProvider = function(cell, name){
	if (name == "myName1") return 10;
	else if (name == "myName2") return 20;
	else return null;
 };
sheet.Cells.Item["B5"].Data = "=myName1";
sheet.Cells.Item["C5"].Data = "=myName2"; 
 
// Run Script to add functions
grid.RunScript("script.myfunc = data => '[' + data + ']';");
sheet.SetCellData("D5", `=myfunc(A5)`)

 
//To get range that contains data in a worksheet, use UsedRange peroperty.
var range = sheet.UsedRange;
console.log( range )

sheet.IterateCells(range, function(row, col, cell){
	// c# row col start from zero
	console.log(string.format(" %s 行：%s 列   值：%s", row +1, col +1, cell.Data)) 
	// return true to continue iterate, return false to abort
	return true;
});


/*
// unvell.ReoGrid.IO.FileFormat
public enum FileFormat : ushort
{
	ReoGridFormat = 1,
	CSV = 10,
	Excel2007 = 30,
	_Auto = 0,
	_Custom = 100
}
*/
 // save sheet to file
sheet.Cells.Item["A1"].Data = "aardio";
grid.Save(".\res\SampleData.xlsx", unvell.ReoGrid.IO.FileFormat.Excel2007)
console.pause(true);

回复#23 @codex :请问一下，自定义的公式和名称在保存之后，是没法用的，会显示无效，对吧？

回复#24 @sunjc :

自定义的公式和名称只能在reogrid中显示，execl不支持的

回复#4 @jerryxjr1220 :

为什么我的十万行20列数据保存要6分钟呢

回复#26 @rays2004 :

你要是按照他那个for循环里一个个setcell值，肯定慢很多，因为你这样会花费大量的时间去进行c#和aardio之间的数据转换，两个解决办法，1.直接利用我上面写的数组赋值方法，2.参考https://www.chengxu.xyz/t/21322 这篇文章，写一个数据转接dll

回复#27 @admin :

但是还是慢 我的需求是打开一个10万X20的excel表，按照某些规则进行数据更改，单元格颜色等设置 设置后保存，不全是数据转换的问题 ，请教一个该怎么用arrdio 解决 数据处理问题不大 主要是保存特别慢 10分钟

回复#29 @rays2004 :这个问题我一直关注，试了一些，感觉 首先libxl是最快的，其次win10下普遍比win7下快。

回复#29 @rays2004 :

非要用这个的话，直接用c#写软件吧，你用不到界面显示表格，不如不用它，界面显示肯定需要时间

回复#31 @admin :

好的 谢谢 

回复#29 @rays2004 :

那么大量的数据读写用excel本身就不合理啊，excel的作用是为了便于数据量交小的情况下，可视化显示数据或者图形。

大数据量的话，肯定首选是数据库了，而且对于大数据量的读写也不应该依赖图形界面，没有图形界面的话，速度可以快很多。

回复#1 @jerryxjr1220 :

能给几个query的例子吗？就是按行读取的

怎么你的附件是3.0的，我官网下的是2.1的

请问reoGrid，鼠标放单元格右下角出现+号拖动给其它单元格赋值怎么禁止，找了很多事件 IsCancelled = true都不行 

这样子+号不明显但还是能拖动

ws.SelectionStyle = WorksheetSelectionStyle.None;

找到了：

.DisableSettings(WorksheetSettings.Edit_DragSelectionToFillSerial);

请问大家一个新问题，删除行时，方便起见我删第一行

worksheet.DeleteRows(0,1)

总数大于1行没问题，最后一行时报超出范围，想了很多办法都不知道错哪里了

System.ArgumentOutOfRangeException:“指定的参数已超出有效值的范围。

Arg_ParamName_Name”

我用笨办法，最后一行时先AppendRows(1)插入个空白行，感觉怪怪的

回复#30 @小星碰头 :

import win.ui;
/*DSG{{*/
var winform = win.form(text="aardio form";right=854;bottom=546)
winform.add(
custom={cls="custom";text="自定义控件";left=0;top=0;right=855;bottom=547;bgcolor=12639424;db=1;dl=1;dr=1;dt=1;z=1}
)
/*}}*/

import dotNet;
import System.Drawing; 
import System.Windows.Forms;
var dll = dotNet.load("\unvell.ReoGrid.dll");
var ReoGrid = dll.import("unvell.ReoGrid");
var reoGridControl1 = ReoGrid.ReoGridControl();
System.Windows.Forms.CreateEmbed(reoGridControl1,winform.custom);

//reoGridControl1.Load(io.fullpath("\tt.xlsx"));
var Worksheet = reoGridControl1.CurrentWorksheet;

Worksheet.Cells.Item["A1"].Data = "aardio World!";

Worksheet.DeleteRows(0, 1);


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

测试没报错......

话说这个是表格控件, 只要显示界面貌似就有很多行吧? 不理解你说的"总数大于1行没问题，最后一行时报超出范围" 是啥意思? 有代码吗

回复#31 @admin :

谢谢回复，我在c#里用的，就是appendrow 比如10行，然后deleterow，前9行没问题，到最后一行就报错

这个控件还有一个不好的地方，可能我没摸索到，标题行的字体好像不能调，中文特别小而且靠上排

请问一下大家，按回车键（enter）焦点单元格的移动方向从水平更改为垂直

回复#35 @ouyang789 :

https://reogrid.net/document/behavior/

回复#35 @ouyang789 :

回复#37 @小星碰头 :

谢谢

回复#36 @admin :

谢谢

请问一下大家，打印时怎样加入页眉和页码

各位大佬，怎么实现文本居中！！

回复#41 @ggjk :

Row and Column – ReoGrid – .NET Spreadsheet Component

Style – ReoGrid – .NET Spreadsheet Component