在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
手头上的一个项目报表相对比较简单,所以报表打印采用VBA引擎,通过定制Word模版,然后根据模版需要填充数据,然后OK,打印即可。 实现方法:首先需要引用VBA组建,我用的是Office2003 Professional,Dll版本号为Microsoft Word11.0, 另外当然还需要引用Interop.Word.Dll. 代码如下: #region 打开Word文档,并且返回对象wDoc,wDoc /// <summary> /// 打开Word文档,并且返回对象wDoc,wDoc /// </summary> /// <param name="FileName">完整Word文件路径+名称</param> /// <param name="wDoc">返回的Word.Document wDoc对象</param> /// <param name="WApp">返回的Word.Application对象</param> public static void CreateWordDocument(string FileName,ref Word.Document wDoc,ref Word.Application WApp) { if(FileName == "") return; Word.Document thisDocument = null; Word.FormFields formFields = null; Word.Application thisApplication = new Word.ApplicationClass(); thisApplication.Visible = true; thisApplication.Caption = ""; thisApplication.Options.CheckSpellingAsYouType = false; thisApplication.Options.CheckGrammarAsYouType = false; Object filename = FileName; Object ConfirmConversions = false; Object ReadOnly = true; Object AddToRecentFiles = false; Object PasswordDocument = System.Type.Missing; Object PasswordTemplate = System.Type.Missing; Object Revert = System.Type.Missing; Object WritePasswordDocument = System.Type.Missing; Object WritePasswordTemplate = System.Type.Missing; Object Format = System.Type.Missing ; Object Encoding = System.Type.Missing; Object Visible = System.Type.Missing; Object OpenAndRepair = System.Type.Missing; Object DocumentDirection = System.Type.Missing; Object NoEncodingDialog = System.Type.Missing; Object XMLTransform = System.Type.Missing; try { Word.Document wordDoc = thisApplication.Documents.Open(ref filename, ref ConfirmConversions, ref ReadOnly, ref AddToRecentFiles, ref PasswordDocument, ref PasswordTemplate, ref Revert,ref WritePasswordDocument, ref WritePasswordTemplate, ref Format, ref Encoding, ref Visible, ref OpenAndRepair, ref DocumentDirection, ref NoEncodingDialog, ref XMLTransform ); thisDocument = wordDoc; wDoc = wordDoc; WApp = thisApplication; formFields = wordDoc.FormFields; } catch(Exception ex) { MessageBox.Show(ex.Message); } } #endregion 调用上面静态方法,打开目标文件并且把DataGrid中数据填充到对应Word标签中去 #region Word填充数据(For Example) /// <summary> /// Word填充数据 /// </summary> private void WordLoadData() { Word.Document wDoc=null; Word.Application wApp=null; sysFun.CreateWordDocument("E:\\监测报告(new).dot",ref wDoc,ref wApp); //对标签"C"进行填充 object bkmC="C"; if(wApp.ActiveDocument.Bookmarks.Exists ("C") == true) { wApp.ActiveDocument.Bookmarks.get_Item (ref bkmC).Select(); } wApp.Selection.TypeText(this.txt1.Text); object bkmG = "TWaterTable3"; object unit; object count; //移动数 object extend; extend = Word.WdMovementType.wdExtend; unit = Word.WdUnits.wdCell; //把DataGrid中数据填充到标签TWaterTable3上 if(wApp.ActiveDocument.Bookmarks.Exists("TWaterTable3") == true) { wApp.ActiveDocument.Bookmarks.get_Item (ref bkmG).Select(); for(int i=0;i<this.gridEX1.RecordCount;i++) { if(i==0) { count=1; } else { count=0; } //需填充5列数据 wApp.Selection.Move(ref unit,ref count); wApp.Selection.TypeText(gridEX1.GetRow(i).Cells[0].Text); count=1; wApp.Selection.Move(ref unit,ref count); wApp.Selection.TypeText(gridEX1.GetRow(i).Cells[1].Text); wApp.Selection.Move(ref unit,ref count); wApp.Selection.TypeText(gridEX1.GetRow(i).Cells[2].Text); wApp.Selection.Move (ref unit,ref count); wApp.Selection.TypeText(gridEX1.GetRow(i).Cells[3].Text); wApp.Selection.Move(ref unit,ref count); wApp.Selection.TypeText(gridEX1.GetRow(i).Cells[4].Text); //换行 wApp.Selection.MoveRight(ref unit,ref count,ref extend); } } } #endregion 然后就OK了,在对标签表控制要注意列循环和换行,不知道还有没有其它好办法,欢迎探讨! 如果您的数据库系统是SQLServer,就可以使用如下的方式来获得当前数据库的所有表: private void GetTables_SystemTable() { //打开连接 string strConnectionString=System.Configuration.ConfigurationSettings.AppSettings ["ConnectionString"]; sqlcn=new SqlConnection(strConnectionString); sqlcn.Open(); //使用信息架构视图 SqlCommand sqlcmd=new SqlCommand("SELECT OBJECT_NAME (id) FROM sysobjects WHERE xtype = 'U' AND OBJECTPROPERTY (id, 'IsMSShipped') = 0",sqlcn); SqlDataReader dr=sqlcmd.ExecuteReader(); while(dr.Read()) { MessageBox.Show(dr.GetString(0)); } } 6、使用SQLServer的存储过程"sp_tables" 下面是"盛国军"朋友提出的使用存储过程的方法的补充代码。 public void GetTables_StoredProcedure() { //处理OleDbConnection string strConnectionString=@"Integrated Security=SSPI;Data Source=HBXP;Initial Catalog=Test;Provider=SQLOLEDB.1"; OleDbConnection cn=new OleDbConnection(strConnectionString); cn.Open(); //执行存储过程 OleDbCommand cmd=new OleDbCommand("sp_tables",cn); cmd.CommandType=CommandType.StoredProcedure; OleDbDataReader dr= cmd.ExecuteReader(); while(dr.Read()) { MessageBox.Show(dr["TABLE_NAME"].ToString()); } } 总结:获得当前数据库中所有表的方法还不止,本人列出的这些,希望以上方法能够起到抛砖引玉的作用。以上的这些方法各有各的优缺点,希望大家能够灵活的应该,并且希望能够将发现的新的方法告知我,谢谢。 |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论