调用c#强大的ReoGrid免费表格控件，用于显示、编辑、打印、导出和导入Excel电子表格

回复#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