FOXTABLE±à³Ì

.

Êý¾Ý°ó¶¨

×î¼òµ¥µÄ°ó¶¨

Ê×ÏÈ»¹ÊÇ´ò¿ªÎÒÃǵÄʾÀýÎļþ¡°×¨Òµ±¨±í.Table¡±£¬È»ºóÔÚÃüÁî´°¿ÚÖ´ÐÐÏÂÃæµÄ´úÂ룺 Dim doc As New PrintDoc Dim rt As New prt.RenderText

rt.DataBinding.DataSource = BindTables(\¶©µ¥\½«rt°ó¶¨µ½¶©µ¥±í rt.Text= \²úÆ·.Value]\ÉèÖôòÓ¡×Ö¶Î doc.body.Children.Add(rt) doc.Preview()

ÉÏÊö´úÂë»á´òÓ¡³ö¶©µ¥±íÖÐÿһÐеIJúÆ·Ãû³Æ¡£

DataBindingÓÃÓÚÉèÖôòÓ¡¶ÔÏóµÄ°ó¶¨ÊôÐÔ£¬¸ÃÊôÐÔ°üÀ¨Ò»Ð©×ÓÊôÐÔ£¬DataSource±íʾÊý¾ÝÀ´Ô´£¬Êý¾ÝÀ´Ô´¿ÉÒÔÊÇTable£¬»¹¿ÉÒÔÊÇÊý×é»òÕß¼¯ºÏ¡£

ÐèҪעÒâµÄÊÇ£¬²»ÄÜÖ±½Ó°ó¶¨µ½Table£¬Èç¹ûÒª°ó¶¨µ½Table£¬±ØÐëÓÃBindTablesÀ´ÉèÖã¬ÀýÈ磺

rt.DataBinding.DataSource = BindTables(\¶©µ¥\

Èç¹û¶ÔÏóµÄÄÚÈÝÀ´×ÔÓÚijһÁУ¬ÆäTextÊôÐÔµÄÉèÖøñʽÈçÏ£º [Fields!ÁÐÃû³Æ.Value]

ʹÓñí´ïʽ

ÔÚÃüÁî´°¿ÚÖ´ÐÐÏÂÃæµÄ´úÂ룺 Dim doc As New PrintDoc Dim rt As New prt.RenderText

rt.DataBinding.DataSource = BindTables(\¶©µ¥\½«rt°ó¶¨µ½¶©µ¥±í rt.Text= \½ð¶î.Value,1)]\ÉèÖôòÓ¡±í´ïʽ doc.body.Children.Add(rt) doc.Preview()

ÁôÒâ·½À¨ºÅÖеÄÄÚÈÝ£º

Math.Round(Fields!½ð¶î.Value,1)

Òâ˼ÊÇ´òÓ¡µÄʱºò½«½ð¶îÁеÄÄÚÈÝ£¬±£ÁôһλСÊý£¬Äã¿ÉÒÔÔÚTextÊôÐÔÖÐʹÓÃFoxtableÖ§³ÖµÄËùÓк¯Êý¡£

×¢Òâ±í´ïʽ±ØÐëÓ÷½À¨ºÅÀ¨ÆðÀ´¡£

Èͮ򵀫òÓ¡

ΪÁ˵õ½³£¹æµÄÈÕÆÚ¸ñʽ£¬¿ÉÒÔÀûÓÃFormat¸ñʽ»¯ÈÕÆÚÊý¾Ý£º Dim doc As New PrintDoc Dim rt As New prt.RenderText

rt.DataBinding.DataSource = BindTables(\¶©µ¥\½«rt°ó¶¨µ½¶©µ¥±í rt.Text= \ÈÕÆÚ.Value,\ doc.body.Children.Add(rt) doc.Preview()

Òª¼ÇµÃ¶ÔÓÚ×Ö·û´®ÖеÄÿһ¸öË«ÒýºÅ£¬¶¼±ØÐëÓÃÁ½¸öË«ÒýºÅÀ´±íʾ¡£

;.

.

ÔÚÃüÁî´°¿ÚÖ´ÐÐÏÂÃæµÄ´úÂ룺

°ó¶¨¶à¸ö×Ö¶Î

ΪÁË´òÓ¡³ö¶©µ¥±íÖеÄÈÕÆÚºÍÊýÁ¿£¬ÔÚÃüÁî´°¿ÚÖ´ÐÐÏÂÃæµÄ´úÂ룺

ÐèҪʹÓÃÈÝÆ÷(RenderArea)£¬½«Ô­À´µÄ´òÓ¡¶ÔÏó¼ÓÈëµ½ÈÝÆ÷ÖУ¬ÕâЩ´òÓ¡¶ÔÏó²»ÔÙÐèÒªÉèÖð󶨣¬Ö»ÐèΪÈÝÆ÷ÉèÖð󶨼´¿É¡£ ÀýÈ磺

Dim doc As New PrintDoc Dim rt As New prt.RenderText Dim ra As New prt.RenderArea ra.Style.Spacing.Bottom = 2

ra.DataBinding.DataSource = BindTables(\¶©µ¥\½«ÈÝÆ÷°ó¶¨µ½¶©µ¥±í rt.Text = \ÈÕÆÚ.Value]\

ra.Children.Add(rt) '½«´òÓ¡¶ÔÏóÌí¼Óµ½ÈÝÆ÷ÖÐ rt = New prt.RenderText

rt.Text= \ÊýÁ¿.Value]\ ra.Children.Add(rt)

doc.body.Children.Add(ra) doc.Preview()

ÉÏÊöµÄ´úÂ뽫ÒÀ´Î´òӡÿһ¸ö¶©µ¥µÄÈÕÆÚºÍÊýÁ¿¡£

´òÓ¡±êÇ©

ÓÐÁ˰󶨣¬´òÓ¡±êÇ©±ÈÒÔǰ¸ü¼òµ¥¡£ ʾÀý

Dim doc As New PrintDoc '¶¨ÒåÒ»¸ö±¨±í

Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight Dim ra As New prt.RenderArea Dim rt As prt.RenderText ra.Width = 40 'ÉèÖñêÇ©¿í¶È

ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '½ûֹˮƽ·Ö¸î ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never '½ûÖ¹´¹Ö±·Ö¸î ra.Style.Spacing.Right = 2 'ÉèÖñêǩ֮¼äµÄËùÓкÍÉÏϼä¸ôΪ2ºÁÃ× ra.Style.Spacing.Bottom = 2

ra.Style.Padding.All = 1 ' ±êÇ©ÄÚÈݾàÀë±ß¿òΪ1ºÁÃ×

ra.Style.Borders.All = New prt.Linedef(0.3, Color.Red) 'ÉèÖñ߿ò

ra.DataBinding.DataSource = BindTables(\Ô±¹¤\½«ÈÝÆ÷°ó¶¨µ½Ô±¹¤±í Doc.Body.ChildRen.Add(ra) '½«ÈÝÆ÷¼ÓÈëµ½±¨±íÖÐ rt = New prt.RenderText

rt.Text = \ÐÕÃû£º[Fields!ÐÕÃû.Value]\ra.Children.Add(rt) 'Ìí¼Óµ½ÈÝÆ÷ÖÐ rt = New prt.RenderText

;.

.

rt.Text = \²¿ÃÅ£º[Fields!²¿ÃÅ.Value]\ra.Children.Add(rt) 'Ìí¼Óµ½ÈÝÆ÷ÖÐ rt = New prt.RenderText

rt.Text = \Ö°Îñ£º[Fields!Ö°Îñ.Value]\ra.Children.Add(rt) 'Ìí¼Óµ½ÈÝÆ÷ÖÐ Doc.Preview() 'Ô¤ÀÀ±¨±í

±í¸ñÓë°ó¶¨

ÐÐ×éÒ²¿ÉÒÔÉèÖð󶨣¬ÕâÑùÎÒÃÇ¿ÉÒԺܷ½±ãµØ½«Ò»¸ö±í¸ñ°ó¶¨µ½Êý¾Ý±í¡£ ÀýÈ磬´òÓ¡¶©µ¥±íÖеÄijЩÁУ¬´úÂë·Ç³£¼òµ¥£º Dim doc As New PrintDoc

Dim rt As New prt.RenderTable Dim tb as Table = Tables(\¶©µ¥\

Dim ColNames As String() = New String(){\²úÆ·\¿Í»§\µ¥¼Û\ÊýÁ¿\½ð¶î\For c As integer = 0 To ColNames.Length -1 rt.Cells(0,c).Text = ColNames(c)

rt.Cols(c).Width = tb.Cols(ColNames(c)).PrintWidth

rt.Cells(1, c).Text = \ÉèÖð󶨱í´ïʽ Next

rt.RowGroups(0,1).Style.TextAlignVert = prt.AlignVertEnum.Center 'µÚÒ»ÐÐÄÚÈÝ´¹Ö±¾ÓÖÐ rt.RowGroups(0,1).Header = prt.TableHeaderEnum.All '½«µÚÒ»ÐÐ×÷Ϊ±íÍ·¡£

rt.RowGroups(1,1).DataBinding.DataSource = BindTables(\¶©µ¥\½«µÚ¶þÐа󶨵½¶©µ¥±í doc.Body.Children.Add(rt) doc.Preview()

×¢ÒâÕâÒ»ÐдúÂ룺

rt.RowGroups(1,1).DataBinding.DataSource = BindTables(\¶©µ¥\½«µÚ¶þÐа󶨵½¶©µ¥±í

¸ÃÐдúÂ뽫±í¸ñµÄµÚ¶þÐа󶨵½¶©µ¥±í£¬ÕâÑùµÚ¶þÐн«¸ù¾Ý¶©µ¥±íÖеÄÿһÐÐÊý¾Ý£¬×Ô¶¯Éú³É¸±±¾£¬Íê³ÉÕû¸ö±í¸ñµÄ´òÓ¡¡£ FOXtable±à³Ì»ù±¾¸ÅÄî

DataTableºÍTable

FoxtableÖÐÓÐÒ»¸ö¼¯ºÏDataTables£¬Í¨¹ý¸Ã¼¯ºÏ¿ÉÒÔ»ñµÃÖ¸¶¨Ãû³ÆµÄ±í£¬ÀýÈ磺 DataTables(\²úÆ·\'²úÆ·±í DataTables(\¿Í»§\'¿Í»§±í DataTables(\¶©µ¥\'¶©µ¥±í

ʵ¼ÊÉÏÄãÊÇ¿´²»µ½DataTableµÄ£¬Äã¿´µ½µÄÊÇTable£¬Ò²¾ÍÊÇ˵£¬ÉÏÃæµÄÈý¸öͼ£¬Êµ¼ÊÉϾÍÊÇÈý¸öTable¡£

ÄÇôʲôÊÇTableÄØ£¿Äã¿ÉÒÔÕâÑùÀí½â£¬DataTable¾ÍÏñÒ»¸ö²Ö¿â£¬ËùÓдÓÊý¾ÝÎļþÖмÓÔØµÄÊý¾Ý£¬¶¼´æ·ÅÔÚÕâÀ¶øÇÒÕâ¸ö²Ö¿âÊDz»Ö±½ÓÃæ¶ÔÓû§µÄ£»¶øTable¾ÍÏñÒ»¸öÕ¹Ìü£¬ÊǸºÔðºÍÓû§´ò½»µÀµÄ£¬Õâ¸öÕ¹Ìü(Table)´Ó²Ö¿â(DataTable)ÖÐÈ¡µÃÊý¾Ý£¬²¢³ÊÏÖ¸øÓû§¡£

ͬÑù£¬FoxtableÖÐÒ²ÓÐÒ»¸ö¼¯ºÏTables£¬Í¨¹ý¸Ã¼¯ºÏ¿ÉÒÔ»ñµÃÖ¸¶¨Ãû³ÆµÄTable£¬ÔÚûÓн¨Á¢¹ØÁªµÄÇé¿öÏ£¬ÎÒÃÇÕâ¸ö¼ò»¯µÄ¶©µ¥¹ÜÀíϵͳ°üÀ¨Èý¸öTable£¬·Ö±ðÊÇ£º

;.

ÁªÏµ¿Í·þ£º779662525#qq.com(#Ìæ»»Îª@) ËÕICP±¸20003344ºÅ-4