定义数组给每一列设置长度

 int[] iaWidth = new int[dtResult.Columns.Count];
                    for (int i = 0; i < dtResult.Columns.Count; i++)
                    {
                        iaWidth[i] = 80;
                    }
                    DevGridControlHelper.BindData(gdcMultiSpec, dtResult, iaWidth);

 

转载于:https://my.oschina.net/8824/blog/3098420

### 使用VBA定义数组并从Excel中读取一列数据 在VBA中,可以通过静态或动态方式定义数组,并通过简单的代码逻辑将Excel中的某列数据加载到该数组中。以下是具体方法及其示例代码。 #### 动态数组定义与初始化 动态数组允许程序运行时调整其大小,这使得它非常适合处理不确定长度的数据集。可以先计算目标列的有效行数,再据此重定义数组尺寸[^3]。 #### 数据读取过程 为了高效地将Excel单元格中的数据转移到VBA数组中,推荐一次性批量读取整个区域而非逐个单元格操作。这样不仅简化了代码结构,还显著提升了执行效率[^2]。 #### 示例代码展示 下面提供了一段完整的VBA脚本,演示如何定义一个动态数组并将指定工作表上的某一整列数值填充进去: ```vba Sub ReadColumnToArray() Dim ws As Worksheet Dim LastRow As Long Dim arr() As Variant Dim i As Long ' 设定要操作的工作表对象 Set ws = ThisWorkbook.Worksheets("Sheet1") ' 找到最后非空白行号 LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 调整数组大小至实际所需容量 ReDim arr(1 To LastRow) ' 把选定列里的每一个值赋给对应位置的数组元素 For i = 1 To LastRow arr(i) = ws.Cells(i, 1).Value Next i ' 输出测试:显示第三个元素内容 MsgBox "The third element is: " & arr(3), vbInformation End Sub ``` 上述代码片段实现了如下功能: - 明确指定了作用域内的工作表名称; - 准确找到了目标列(这里是"A")最后一条有效记录所在的行索引; - 创建了一个可变长度的一维数组,并依据先前统计得到的最大行序号设置了确切规模; - 运用For循环逐一访问各行列组合处的单元格,进而完成向量形式的数据采集任务[^3]。 --- ###
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值