‘首先,创建一个VB.NET项目,再点击菜单”项目“-”添加引用“,在”Com“-”类型库“里,选择Microsoft.Word 14.0 Object Library(对应Office版本为2010),将以下代码复制粘贴到Form1窗体替换原代码。
创新互联公司长期为1000多家客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为月湖企业提供专业的成都网站建设、成都网站设计,月湖网站改版等技术服务。拥有10多年丰富建站经验和众多成功案例,为您定制开发。
’PS:以下代码仅创建表格,将第行2至4列合并,添加1个文字,其他的你自己分析。
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及文档对象
DDoc = DWrd.Documents.Add '新增文档
Dim DTbl As Word.Table '定义表格对象
DTbl = DDoc.Tables.Add(DDoc.Range, 7, 4) '新增表格
DTbl.Style = "网格型" '表格的样式
DTbl.Cell(1, 2).Select() '选择起始单元格为第1行/第2列
DWrd.Selection.MoveRight(, 2, SelectionMode.MultiExtended) '向右扩展两个单元格(即选择第1行的第2至4列)
DWrd.Selection().Cells.Merge() '单元格合并
DTbl.Cell(1, 1).Range.Text = 1 '在第1个单元格填写文本
DWrd.Visible = True '显示Word
End Sub
End Class
分类: 电脑/网络 程序设计 其他编程语言
问题描述:
在SQL数据库里已有一个现成的空数据表(只有字段、没有数据),请问高手,怎样在VB.NET中用SQL语句把该数据库中的那个表复制一个到该数据库(字段不变、数据为空)只是把数据表的名改了?
谢谢!谢谢!
解析:
select * into 新表 from 旧表
使用 SELECT INTO 插入行
SELECT INTO 语句创建一个新表,并用 SELECT 的结果集填充该表。新表的结构由选择列表中表达式的特性定义,例如:
SELECT Shippers.*, Link.Address, Link.City,
Link.Region, Link.PostalCode
INTO NewShippers
FROM Shippers
JOIN LinkServer.DB.dbo.Shippers AS Link
ON (Shippers.ShipperID = Link.ShipperID)
SELECT INTO 可将几个表或视图中的数据组合成一个表。也可用于创建一个包含选自链接服务器的数据的新表。
vb.net 打开平台主页,设置磁按键,点击智能模式,vb.net就可以新建一个datatable了。