¼òµ¥µÄVBÎÊÌâ
³õѧVB£¬Çë¸÷λ´óÏÀ¸øÓèÖ¸µã
Private Shared Function GetWorkflow(ByVal flow As WorkflowFlow) As WorkflowDocument3
GetWorkflow = Nothing
If (Not flow Is Nothing) And (Not String.IsNullOrEmpty(flow.FileName)) Then
If Not m_oWorkflowDocuments.TryGetValue(flow.FileName, GetWorkflow) Then
Dim oDirectoryResolver As New CFNSDirectoryPathResolver
GetWorkflow = New WorkflowDocument3
GetWorkflow.Load(oDirectoryResolver.ResolveFilePath(flow.FileName).FullName)
InitWorkflow(GetWorkflow)
SyncLock (m_oWorkflowDocuments)
m_oWorkflowDocuments(flow.FileName) = GetWorkflow
End SyncLock
End If
End If
ÇëÎʵڶþ¶Î¡°GetWorkflow = Nothing¡±¾¿¾¹ÊÇʲôÒâË¼ÄØ£¿·½·¨µÄ¿ªÍ·¾Í°Ñ±¾·½·¨ÃûÉèÖÃΪ¿ÕÖÃÓÐʲôÒâÒ壿
Nothing ¹Ø¼ü×Ö±íʾÈκÎÊý¾ÝÀàÐ͵ÄĬÈÏÖµ¡£½« Nothing ¸³¸ø±äÁ¿½«°Ñ¸Ã±äÁ¿ÉèÖÃΪÆäÉùÃ÷ÀàÐ͵ÄĬÈÏÖµ¡£Èç¹
Ïà¹ØÎÊ´ð£º
ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿
1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......
Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......
´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ
printer.print "dsff"
.....
....
Printer.EndDoc
´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ
sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......
ÎÒÏëʹÓÃpicturebox¿Ø¼þ»Í¼
ÎÒµÄsqlÊý¾Ý¿âÖÐÊý¾Ý±íÃû×ÖÊÇudata£¬ÆäÖÐÓÐÁ½ÁУ¬Ò»ÁÐÊÇsdatetime£¬ÁíÒ»ÁÐÊÇdata¡£ÎÒÏëÓÃÆäÖеÄsdatetimeÁеÄÊýÖµ£¨Ê±¼ä£©×÷Ϊºá×ø±ê£¬dataÁеÄÊýÖµ£¨Êý¾Ý£©×÷Ϊ×Ý×ø±ê¡£
ÔÚÒ»¸öР......
ÎÒÊÇËæ»úÊý¾Ý¿âÖеÄÖµ ÒÔidµÄ¿ªÊ¼ÎªÍ· idµÄ½áÊøÎª½áβ ¿ÉÊÇÓÐʱºòɾ³ýÒ»Ìõ¼Ç¼µÄ»° È»ºóÔÙËæµ½ÕâÌõ¼Ç¼ʱ¾Í»á±¨´í
ÔõÃ´Ð´Ëæ»ú¾Í²»»áËæ»úµ½ÒѾɾ³ýµÄÁË ´íÎó´úÂëÈçÏÂ
&n ......