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

vbµ÷ÓÃK3½Ó¿Ú

ÏÖÔÚÎÒÃÇÓÐÒ»¸öÏîÄ¿£¬ËûÃǹ«Ë¾ÓõÄK3µÄ²ÆÎñÈí¼þ£¬ÏÖÔÚÎÒÃÇÓÐЩҵÎñÏëʵʱµÄµ÷ÓÃK3µÄ²ÆÎñƾ֤£¬ËùÒÔÎÒÃdz¢ÊÔÓÃvbÀ´µ÷ÓÃk3ƾ֤½Ó¿Ú£¬À´´ïµ½ÐÂÔöƾ֤£¬Ä¬ÈÏÊÇÆ¾Ö¤µÄÉóºË״̬£¬ÓÉÓÚÎÒ¶¼VB֮ǰ¶¼²»ÊǺÜÁ˽⣬Çë¸÷λ´óÏÀÖ»ÄÜÎÒÒ»ÏÂ
Private Sub Command1_Click()
    Dim voucher As New KFO.Dictionary
    Dim GlData As New EBCGLView.GlData
    Dim GLView As New EBCGLView.GLView
    Dim dtvect As KFO.Vector
    Dim Dt As KFO.Dictionary
    Dim obj As ADODB.Recordset
    Dim ReturnCollection As Object
    'vchdate = DateSerial(GlData.SystemProfile.GLGetCurrentYear, GlData.SystemProfile.GLGetCurrentPeriod, 1)
    vchdate = DateSerial(2009, 12, 1)
    voucher("FDate") = vchdate
    voucher("FGroup") = "¼Ç"
    voucher("FNumber") = Val(111)
   
    Dim voucherentry As New KFO.Vector
    Dim tempentry As New KFO.Dictionary
   
    'Set tempentry = New KFO.Dictionary
    tempentry("FExplanation") = "ƾ֤¼Èë¼ì²â-·Ö¼1"
    tempentry("FAccountID") = 1014
    tempentry("FCurrencyID") = 1
    tempentry("FDC") = 1
    te


Ïà¹ØÎÊ´ð£º

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

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

ΪʲôÓÃVB¸Ä±ä²»Á˹¤¾ßÀ¸°´Å¤µÄ¿í¶È - VB / ¿Ø¼þ

Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔ­À´µÄÊýÖµÁË

´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£

»Ø¸´ ......

°ïÎҸĸÄÕâVBÌâ - VB / »ù´¡Àà

°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
  number As Single
  score As Integer
  name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
 i = 0
&nbs ......

Ö»»áVB£¬ÏÖÔÚÏëÖØÐÂѧÃÅÓïÑÔ - VB / ·Ç¼¼ÊõÀà

Ö»»áVB£¬µ±¹ý1ÄêµÄVB³ÌÐòÔ±
ÏÖÔÚÏëÓëʱ¾ã½ø£¬Ñ§ÄÄÃÅÓïÑÔºÃÄØ
vb.net ,C# ,Java, »¹ÊÇVC++?
ÄÄÃÅÄܹ»¿ìËÙµÄÉÏÊÖ£¬²¢×ªÐÍ£¿
C#£¬winform»òwebform¶¼¿ÉÒÔ

vb.net

VC++

ÒýÓÃ
VC++
Âé·³ÄÜ˵¸öÀíÓÉô¡£¡£¡ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ