vb.net合并列 vba合并列

vb.net 中 两个string()合并

Dim Str1() As String = {"123", "321", "231", "132"}

Dim Str2() As String = {"qwe", "asd", "zxc", "sdf", "asdf"}

Dim Str() As String = Str1

ReDim Preserve Str(Str1.Length + Str2.Length - 1)

Str2.CopyTo(Str, Str1.Length)

相关问答

Q1: VB.NET 中datagrid一列怎么求和

Dim textColumn As New DataGridViewTextBoxColumn() '定义一个新的textbox格式的列

textColumn.Name = "Column1" '定义该列的Name

textColumn.HeaderText = "Column1" '定义该列的标题

DataGridView1.Columns.Add(textColumn)

For Each r As DataGridViewRow In DataGridView1.Rows '循环DataGridView的行

r.Cells(textColumn.Index).Value = r.Cells(0).Value + r.Cells(1).Value '将第一列和第二列单元格数据相加，并显示在新添加的单元格上

Next

Q2: 求助 几个csv文件，结构都一样，修改其中一列的值，然后合并到一个csv文件，求vb.net代码

将解析出来的结果写入到

Excel。

解析csv文件代码：

public static List readCsvFile(String argPath) throws FileNotFoundException, IOException {

CsvFileUtil util = new CsvFileUtil();

File cvsFile = new File(argPath);

List list = new ArrayList();

FileReader fileReader = null;

BufferedReader bufferedReader = null;

try {

fileReader = new FileReader(cvsFile);

bufferedReader = new BufferedReader(fileReader);

String regExp = util.getRegExp();

System.out.println(regExp);

String strLine = "";

String str = "";

while ((strLine = bufferedReader.readLine()) != null) {

Pattern pattern = Pattern.compile(regExp);

Matcher matcher = pattern.matcher(strLine);

List listTemp = new ArrayList();

while(matcher.find()) {

str = matcher.group();

str = str.trim();

if (str.endsWith(",")){

str = str.substring(0, str.length()-1);

str = str.trim();

}

if (str.startsWith("\"") str.endsWith("\"")) {

str = str.substring(1, str.length()-1);

if (util.isExisted("\"\"", str)) {

str = str.replaceAll("\"\"", "\"");

}

}

if (!"".equals(str)) {

//test

System.out.print(str+" : ");

listTemp.add(str);

}

}

System.out.println();

list.add((String[]) listTemp.toArray(new String[listTemp.size()]));

}

} catch (FileNotFoundException e) {

throw e;

} catch (IOException e) {

throw e;

} finally {

try {

if (bufferedReader != null) {

bufferedReader.close();

}

if (fileReader != null) {

fileReader.close();

}

} catch (IOException e) {

throw e;

}

}

return list;

}

写入Excel代码：

public void exportExcel(String title, String[] headers,

CollectionT dataset, OutputStream out, String pattern) {

// 声明一个工作薄

HSSFWorkbook workbook = new HSSFWorkbook();

// 生成一个表格

HSSFSheet sheet = workbook.createSheet(title);

// 设置表格默认列宽度为15个字节

sheet.setDefaultColumnWidth((short) 15);

// 生成一个样式

HSSFCellStyle style = workbook.createCellStyle();

// 设置这些样式

style.setFillForegroundColor(HSSFColor.SKY_BLUE.index);

style.setFillPattern(HSSFCellStyle.SOLID_FOREGROUND);

style.setBorderBottom(HSSFCellStyle.BORDER_THIN);

style.setBorderLeft(HSSFCellStyle.BORDER_THIN);

style.setBorderRight(HSSFCellStyle.BORDER_THIN);

style.setBorderTop(HSSFCellStyle.BORDER_THIN);

style.setAlignment(HSSFCellStyle.ALIGN_CENTER);

// 生成一个字体

HSSFFont font = workbook.createFont();

font.setColor(HSSFColor.VIOLET.index);

font.setFontHeightInPoints((short) 12);

font.setBoldweight(HSSFFont.BOLDWEIGHT_BOLD);

// 把字体应用到当前的样式

style.setFont(font);

// 生成并设置另一个样式

HSSFCellStyle style2 = workbook.createCellStyle();

style2.setFillForegroundColor(HSSFColor.LIGHT_YELLOW.index);

style2.setFillPattern(HSSFCellStyle.SOLID_FOREGROUND);

style2.setBorderBottom(HSSFCellStyle.BORDER_THIN);

style2.setBorderLeft(HSSFCellStyle.BORDER_THIN);

style2.setBorderRight(HSSFCellStyle.BORDER_THIN);

style2.setBorderTop(HSSFCellStyle.BORDER_THIN);

style2.setAlignment(HSSFCellStyle.ALIGN_CENTER);

style2.setVerticalAlignment(HSSFCellStyle.VERTICAL_CENTER);

// 生成另一个字体

HSSFFont font2 = workbook.createFont();

font2.setBoldweight(HSSFFont.BOLDWEIGHT_NORMAL);

// 把字体应用到当前的样式

style2.setFont(font2);

// 声明一个画图的顶级管理器

HSSFPatriarch patriarch = sheet.createDrawingPatriarch();

// 定义注释的大小和位置,详见文档

HSSFComment comment = patriarch.createComment(new HSSFClientAnchor(0, 0, 0, 0, (short) 4, 2, (short) 6, 5));

// 设置注释内容

comment.setString(new HSSFRichTextString("可以在POI中添加注释！"));

// 设置注释作者，当鼠标移动到单元格上是可以在状态栏中看到该内容.

comment.setAuthor("leno");

//产生表格标题行

HSSFRow row = sheet.createRow(0);

for (short i = 0; i headers.length; i++) {

HSSFCell cell = row.createCell(i);

cell.setCellStyle(style);

HSSFRichTextString text = new HSSFRichTextString(headers[i]);

cell.setCellValue(text);

}

//遍历集合数据，产生数据行

HSSFFont font3 = workbook.createFont();

font3.setColor(HSSFColor.BLUE.index);

IteratorT it = dataset.iterator();

int index = 0;

while (it.hasNext()) {

index++;

row = sheet.createRow(index);

T t = (T) it.next();

//利用反射，根据javabean属性的先后顺序，动态调用getXxx()方法得到属性值

Field[] fields = t.getClass().getDeclaredFields();

for (short i = 0; i fields.length; i++) {

HSSFCell cell = row.createCell(i);

cell.setCellStyle(style2);

Field field = fields[i];

String fieldName = field.getName();

String getMethodName = "get"

+ fieldName.substring(0, 1).toUpperCase()

+ fieldName.substring(1);

try {

Class tCls = t.getClass();

Method getMethod = tCls.getMethod(getMethodName,new Class[] {});

Object value = getMethod.invoke(t, new Object[] {});

//判断值的类型后进行强制类型转换

String textValue = null;

//其它数据类型都当作字符串简单处理

textValue = value.toString();

System.out.println(getMethodName+" : "+textValue+" : "+getMethod+" : "+value);

//如果不是图片数据，就利用正则表达式判断textValue是否全部由数字组成

if(textValue!=null){

Pattern p = Pattern.compile("^\\d+(\\.\\d+)?$");

Matcher matcher = p.matcher(textValue);

if(matcher.matches()){

//是数字当作double处理

cell.setCellValue(Double.parseDouble(textValue));

}

else{

HSSFRichTextString richString = new HSSFRichTextString(textValue);

richString.applyFont(font3);

cell.setCellValue(richString);

}

}

} catch (SecurityException e) {

// TODO Auto-generated catch block

e.printStackTrace();

} catch (NoSuchMethodException e) {

// TODO Auto-generated catch block

e.printStackTrace();

} catch (IllegalArgumentException e) {

// TODO Auto-generated catch block

e.printStackTrace();

} catch (IllegalAccessException e) {

e.printStackTrace();

} catch (InvocationTargetException e) {

e.printStackTrace();

} finally {

//清理资源

}

}

}

try {

workbook.write(out);

} catch (IOException e) {

// TODO Auto-generated catch block

e.printStackTrace();

}

}

Q3: 怎么把三个VB.NET的项目合成一个

以一个项目为基础，在其工程上点右键，选添加，现有项，然后选择另外两个项目里的文件，用这种方式把所有的都添加上就行了

在你要引入的文件或文件夹上点右键，选包括在项目中

下次直接追问，要不我看不到

Q4: vb.net如何将6个DataGridView合并到一个DataGridView7中

Private Sub RowAdd() '这里以一个为例，多个自己添加就可以了

If DataGridView1.RowCount 0 Then '行数是否大于1

For Each dr As DataGridViewRow In DataGridView1.Rows

Dim ds As Object() = New Object(dr.Cells.Count - 1) {} '根据单元格个数创建数据

For i = 0 To dr.Cells.Count - 1

ds(i) = dr.Cells(i).Value '给数组赋值

Next

DataGridView7.Rows.Add(ds) '获得的值新增行

Next

End If

End Sub

Q5: 急！！！vb.net中两个结构相同的Access表合并，求高人！！！

这是c#中vb.net合并列的“属性”

假如某个类中有一个成员变量（字段），一般是不允许外部访问的，为vb.net合并列了安全性

如果要访问它，必须通过“属性”来访问，例如：

private int Id; //这是一个成员变量，private表示是私有的，外部不可访问

public int ID

{

get { return id; } //当外部访问“属性”ID时，返回id的值

set { id = value; } //当外部为“属性”ID赋值时，将id赋值为value，value就是外部为“属性”ID所赋的值

}

PS：vb.net合并列你可以在set和get中写一些隐藏的逻辑来控制这个访问和赋值的过程，这对外部是不可见的

比如

set {

if(value==0)

id = 1;

else

id=value;

}

这样当外部将ID赋值为0时，id里的值实际上是1 6

关于vb.net合并列和vba合并列的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。