Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 / »ù´¡Àà

±¾ÈËʹÓõÄÊÇVB6.0°æ±¾
¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬
 A.B1,A.B2,...
µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......

vb×Ô¶¯·¢ËÍÓʼþ - VB / »ù´¡Àà

ΪʲôÎÒÏëÑ­»·×Ô¶¯·¢ËÍÓʼþµÄʱºò,¾ÍÖ»ÓеÚÒ»·âÄÜ×Ô¶¯·¢ËÍ,ÆäËüºóÃæµÄÓʼþ¶¼Ö»ÄÜ´´½¨,²»ÄÜ×Ô¶¯·¢ËÍ
Private Sub send_mail_Click() '·¢ËÍÓʼþ֪ͨ
  Do While Not TDBG_Dept.EOF
  If A> ......

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

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

vb - VB / »ù´¡Àà

ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ