Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

Çë½Ì!ÓõÄÊÇVB 6.0 - VB / ¿Ø¼þ

°ÑÒÑÓÐÊý¾Ý£¨Êý¾Ý´óÓÚ20ÐУ©µÄRS(recordset)µÄµÚ10ÐÐÊý¾ÝÓëµÚ11ÐÐÊý¾Ý×ö¼Ó·¨ºó£¬É¾³ýµÚ11ÐеÄÊý¾Ý£¬È»ºó°ÑºóÃæµÄÊý¾ÝÏòÇ°ÒÆ¡£
RSµÄ»°ÐÞ¸ÄÊý¾ÝÊÇ»á¸üÐÂÊý¾Ý¿â£¬ÏÖÔÚµÄÎÊÌâÊÇRSÀïµÄÒÑÓÐÊý¾ÝÊÇÓÃSQLÓï¾ä·ÖÀàͳ¼Æ³öÀ´µÄ£¬ÎÞ·¨¸üС£ÎÒÒ²²»ÐèÒª¸üÐÂÊý¾Ý£¬Ö»ÒªÄÜ×öµ½µÚ10ÐÐÊý¾ÝÓëµÚ11ÐÐÊý¾Ý×ö¼Ó·¨ºó£¬É¾³ýµÚ11ÐеÄÊý¾Ý£¬È»ºó°ÑºóÃæµÄÊý¾ÝÏòÇ°ÒÆ¾ÍÐÐÁË¡£²»¸üÐÂÊý¾Ý¡£
֮ǰÎÒÓÃË«ÖØÑ­»·

µ«ÊÇÔËÐе½rs1.fields(z)=rs1.fields(z)+rs2.fields(i) z=10 i=11
¾Í»á³ö´í¡£Ô­ÒòÊÇÒ»µ©¸³Öµ¾Í»á¸üÐÂÊý¾Ý¿â£¬ÓÐʲô°ì·¨½â¾ö»òÈÆ¿ªÕâ¸öÎÊÌâ·¥£¿ÈçÓÐÖªµÀµÄ£¬Çë°ï¸öæ¡£
¼òµ¥µã˵¾ÍÊÇÄܶԷµ»ØµÄ½á¹û½øÐб༭µ«ÓÖ²»»á¸üÐÂÊý¾Ý¿âµÄ¿Ø¼þÓз¥£¿

ÒÔÖ»¶ÁµÄ·½Ê½¶ÁÈ¡Êý¾Ý¾ÍÊÇÁË


ÒýÓÃ
ÒÔÖ»¶ÁµÄ·½Ê½¶ÁÈ¡Êý¾Ý¾ÍÊÇÁË


Ö»¶ÁµÄ»°£¬¾Í²»ÄÜÐ޸Ľá¹ûÁË¡£ÎÒÏÖÔÚÒªµÄÊÇÄÜÐÞ¸Äͳ¼ÆµÄ½á¹û¼¯£¬µ«²»¸üÐÂÊý¾Ý¿â¡£

²»Ïë¸üÐÂÊý¾Ý¿â£¬½á¹û¼¯ÊÇÓÃÀ´ÏÔʾµÄ°É£¬ÔÚÏÔʾʱѡÔñÏ¡£

ÏÔʾµÄʱºò´¦Àí£¬°Ñ10ºÍ11Ïà¼Ó£¬11Ìø¹ý²»ÏÔʾ

ʹÓÃADOµÄ¶Ï¿ª¼Ç¼¼¯£¬ÉèÖÃSet RS.ActiveConnection = Nothing£¬ÕâʱÎÞÂÛÊÇAddNew¡¢Delete£¬¾ù²»»á¶Ôԭʼ¼Ç¼¼¯²úÉúÓ°Ïì¡£

¸½ÉÏÔ´Â룺
  If Not rsCopy7 Is Nothing Then Set rsCopy7 = Nothing

  Set rsCopy7 = Module2.rs.Clone  
  While Not rsCopy7.EOF
  If (rsCopy7.AbsolutePosition = 10) Then
  While Not Module2.rs.EOF
  If (Module2.rs.AbsolutePosition = 11) Then
  For Z = 2 To 13
 


Ïà¹ØÎÊ´ð£º

VB iniÎļþдÈë ¶ÁÈ¡ - VB / »ù´¡Àà

¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

vb crystalreport - .NET¼¼Êõ / VB.NET

Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
  MouseWait()
  Dim ClearTempTabelSQL As String
  'If Not ......

vb ÖÐ - VB / »ù´¡Àà

ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ