建站
咨詢
售后
建站咨詢
新聞中心
VB.NET Word創(chuàng)建表格并錄入文字
‘首先，創(chuàng)建一個(gè)VB.NET項(xiàng)目，再點(diǎn)擊菜單”項(xiàng)目“-”添加引用“，在”Com“-”類(lèi)型庫(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軟件開(kāi)發(fā),劍河h5成都微信小程序搭建,劍河網(wǎng)站營(yíng)銷(xiāo)推廣歡迎劍河等地區(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è)單元格填寫(xiě)文本
DWrd.Visible?=?True?'顯示W(wǎng)ord
End?Sub
End?Class
vb.net中,怎么樣把窗體中的數(shù)據(jù)導(dǎo)入報(bào)表?
我給你個(gè)建議
第一 可以寫(xiě)一個(gè)導(dǎo)入的類(lèi)調(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)在打開(kāi)該文件?", 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 '該語(yǔ)句的賦值將在后面被修改
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語(yǔ)句向數(shù)據(jù)庫(kù)中的多個(gè)表插入數(shù)據(jù)
你的語(yǔ)句并沒(méi)有完全貼出來(lái)？
要注意區(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é)果是什么？
分享文章：vb.net插入報(bào)表,wincc用vb報(bào)表
網(wǎng)頁(yè)URL：http://fisionsoft.com.cn/article/dsieegp.html
