VB.NET Word創(chuàng)建表格并錄入文字

‘首先，創(chuàng)建一個(gè)VB.NET項(xiàng)目，再點(diǎn)擊菜單”項(xiàng)目“-”添加引用“，在”Com“-”類型庫(kù)“里，選擇Microsoft.Word?14.0?Object?Library（對(duì)應(yīng)Office版本為2010），將以下代碼復(fù)制粘貼到Form1窗體替換原代碼。

成都創(chuàng)新互聯(lián)公司主營(yíng)劍河網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營(yíng)網(wǎng)站建設(shè)方案,重慶APP軟件開發(fā),劍河h5成都微信小程序搭建,劍河網(wǎng)站營(yíng)銷推廣歡迎劍河等地區(qū)企業(yè)咨詢

’PS：以下代碼僅創(chuàng)建表格，將第行2至4列合并，添加1個(gè)文字，其他的你自己分析。

Imports?Microsoft.Office.Interop

Imports?Microsoft.Office.Interop.Word??'引入Word

Public?Class?Form1

Private?Sub?Form1_Load(sender?As?Object,?e?As?EventArgs)?Handles?MyBase.Load

Dim?DWrd?As?New?Word.Application,?DDoc?As?Word.Document?'定義Word及文檔對(duì)象

DDoc?=?DWrd.Documents.Add?'新增文檔

Dim?DTbl?As?Word.Table??'定義表格對(duì)象

DTbl?=?DDoc.Tables.Add(DDoc.Range,?7,?4)??'新增表格

DTbl.Style?=?"網(wǎng)格型"??'表格的樣式

DTbl.Cell(1,?2).Select()??'選擇起始單元格為第1行/第2列

DWrd.Selection.MoveRight(,?2,?SelectionMode.MultiExtended)??'向右擴(kuò)展兩個(gè)單元格(即選擇第1行的第2至4列)

DWrd.Selection().Cells.Merge()??'單元格合并

DTbl.Cell(1,?1).Range.Text?=?1??'在第1個(gè)單元格填寫文本

DWrd.Visible?=?True?'顯示W(wǎng)ord

End?Sub

End?Class

vb.net中,怎么樣把窗體中的數(shù)據(jù)導(dǎo)入報(bào)表?

我給你個(gè)建議

第一 可以寫一個(gè)導(dǎo)入的類調(diào)用導(dǎo)入 蠻麻煩 但快捷

第二 可以用js 但不保證每種瀏覽器支持

呵呵 至于實(shí)現(xiàn) 我不知道你的代碼具體怎樣

需要幫助 給我百度消息 我一定回復(fù)！

VB.net中如何將 二維數(shù)組 插入 excel表格

這個(gè)比較簡(jiǎn)單

假如二維數(shù)組是str(row,col)

假設(shè)Workbook是Excel的工作簿對(duì)象

Workbook.worksheets(1).range("A2").Resize(row+1, col+1).Value = str

其中關(guān)鍵的是Excel的Resize方法能快速的插入二維數(shù)組

VB.net 如何插入數(shù)據(jù)到Excel中

現(xiàn)在工程里添加引用Microsoft.Office.Interop.Excel，然后可以使用如下代碼輸出。

Dim oXl As Excel.Application = New Excel.Application()

Dim oWb As Excel.Workbook

Dim oWs As Excel.Worksheet

On Error GoTo Morn

oWb = oXl.Workbooks.Add()

oWs = oWb.Worksheets(1)

With oWs

.Cells._Default(1, 1).Value ="a"

.Cells._Default(1, 2).Value ="b"

.Cells._Default(1, 3).Value ="c"

.Cells._Default(1, 4).Value ="d"

.Cells._Default(2, 1).Value ="32"

.Cells._Default(2, 2).Value ="1"

.Cells._Default(2, 3).Value ="90"

.Cells._Default(2, 4).Value ="合格"

End With

oWs.Parent.Names.Add("CostRange", "=" "A1:B39")

oWs.SaveAs(sFileName)

System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default

If MsgBox("已將數(shù)據(jù)輸出到Excel文件中！ 現(xiàn)在打開該文件?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "已完成") = MsgBoxResult.No Then

oXl.Quit()

Else

oXl.Visible = True

End If

oXl = Nothing

oWs = Nothing

oWb = Nothing

如何用VB.NET做水晶報(bào)表?

CrystalReportViewer

dataset 定義數(shù)據(jù)源

.rpt 文件描述具體報(bào)表樣式

再加一個(gè)調(diào)用報(bào)表的FORM，就可以實(shí)現(xiàn)簡(jiǎn)單的報(bào)表功能

Option Explicit

dim Report as New Cystal1

Private Sub Form_Load()

　Screen.MousePointer = vbHourglass

　'調(diào)用水晶報(bào)表時(shí)置鼠標(biāo)為沙漏狀 CRViewer91.ReportSource = Report '該語句的賦值將在后面被修改

　CRViewer91.ViewReport

　Screen.MousePointer = vbDefault '調(diào)用水晶報(bào)表完成后置鼠標(biāo)為默認(rèn)形狀

End Sub

Private Sub Form_Resize()

　CRViewer91.Top = 0

　CRViewer91.Left = 0

　CRViewer91.Height = ScaleHeight

　CRViewer91.Width = ScaleWidth

End Sub

vb.net中用insert語句向數(shù)據(jù)庫(kù)中的多個(gè)表插入數(shù)據(jù)

你的語句并沒有完全貼出來？

要注意區(qū)別：

1，如果是插入完整的一條記錄（包括所有字段）

INSERT

INTO

表名稱

VALUES

(值1,

值2,....)

2，如果插入只包含若干個(gè)指定字段（其余字段為空）

INSERT

INTO

table_name

(列1,

列2,...)

VALUES

(值1,

值2,....)

另外，你使用了變量，那么應(yīng)該這樣使用：

"insert

into

Personal_table

('"

Name_CH

"',

......

后面看不出了，

其實(shí)，你可以在這句之前，加一句輸出，看看具體內(nèi)容，你就知道了！

msgbox()在括號(hào)里把你的這個(gè)字符串放進(jìn)去，看看結(jié)果是什么？

本文標(biāo)題：vb.net插入報(bào)表,wincc用vb報(bào)表
鏈接URL：http://aaarwkj.com/article18/dsieegp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供軟件開發(fā)、網(wǎng)站建設(shè)、手機(jī)網(wǎng)站建設(shè)、標(biāo)簽優(yōu)化、用戶體驗(yàn)、外貿(mào)建站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)