VB ÊôÐÔµÄʹÓÃÎÞЧ
Private Sub DataList1_Click()
If DataList1.Text = "" Then
Lbl_EmpId = ""
Lbl_EmpName = ""
Lbl_Birth = ""
Lbl_Sex = ""
Lbl_Political_Party = ""
Lbl_Family_Place = ""
Lbl_OfficePhone = ""
Lbl_Address = ""
Lbl_Mobile = ""
Lbl_College = ""
Lbl_Major = ""
Lbl_Union = ""
Lbl_Cost = ""
Lbl_part = ""
Lbl_Title = ""
Exit Sub
End If
MyEmp.GetInfo (DataList1.Text)
Lbl_EmpId = MyEmp.EmpId
Lbl_EmpName = MyEmp.EmpName
Lbl_Birth = MyEmp.Birth
Lbl_Sex = MyEmp.Sex
Lbl_Political_Party = MyEmp.Political_Party
Lbl_Family_Place = MyEmp.Family_Place
Lbl_OfficePhone = MyEmp.Office_phone
Lbl_Address = MyEmp.Address
Lbl_Mobile = MyEmp.Mobile
Lbl_College = MyEmp.College
Lbl_Major = MyEmp.Major
Lbl_Union = MyEmp.Union
Lbl_Cost = MyEmp.Cost
Lbl_part = MyPart.GetName(MyEmp.DepId)
Lbl_Title = MyEmp.title
End Sub
Private Sub Form_Load()
Lbl_EmpId = ""
Lbl_EmpName = ""
Lbl_Birth = ""
Lbl_Sex = ""
Lbl_Political_Party = ""
Lbl_Family_Place = ""
Lbl_OfficePhone = ""
Lbl_Addr
Ïà¹ØÎÊ´ð£º
±£´æ³öµÄExcelÊý¾ÝÎļþ£¬ÏëÔÚ³ÌÐòÖоÍת»¯³ÉÊýÖµÀàÐÍ
Äܹ»ÔÚ´ò¿ªExcelÎļþºó£¬
Äܹ»Ö±½ÓÀûÓÃÊý¾Ý»Í¼£¬¶ø²»ÐèÒªÔÙ´Îת»¯Êý¾ÝÀàÐÍ
³ÌÐòÖеÄÊý¾ÝÊÇ´æ·ÅÔÚ¶þάÊý×éÀïµÄ£¬È»ºóÔÙ±£´æÔÚExcelÖÐ
Çë½Ì´óÏÀÃÇ£¬¸ ......
ÎÒÔÚ´°ÌåÕý³£ÔËÐеÄÇé¿öÏ ±êÌâÀ¸ÉÏ¿ÉÒÔ¶¯Ì¬ÏÔʾÊýÖµ
¿ÉÊǵã»÷×îС»¯°´Å¥µÄºó £¬ÔÚÈÎÎñÀ¸ÉϵıêÌâÉϾͲ»±äÁË£¿
Ôõô°ì
±ðÕÛÌÚÕâЩ»¨¼Ü×Ó£¬Ã»ÒâÒå
²»»á°É£¿
VB code:
Private Su ......
C# code:
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Type GUID
Data1 As Long
......
Ò»µÀVBС³ÌÐò
ÓÐÁ½¸öÁбí¿òlist1¡¢ list2 ¡£list1Öгõʼ»¯ÓÐ15¸ö²»Í¬µÄ×Öĸ£¬¶ølist2ÖÐÊÇ¿Õ°×µÄ »¹ÓÐÒ»¸ö°´Å¥command1,Ñ¡ÖÐlist1ÖеÄÈÎÒâ¶à¸öÏîÄ¿ È»ºóµã»÷°´Å¥command1,ÔòÔÚlist2ÖÐÏÔʾlist1Öб»Ñ¡ÖеÄÏîÄ¿¡£µ±¶ ......