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
Ïà¹ØÎÊ´ð£º
ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿Ø¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓƵ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......
ÓÃvb×öºÃµÄÈí¼þ£¬ÏëÒª¼ÓÈë×Ô¶¯Òþ²ØµÄ¹¦ÄÜ£¬ÔÚÄÇÌí¼Ó°¡£¬»¹ÓÐÒþ²ØµÄ´úÂëÄÇÓа¡ ½èÓÃһϠлÁË
·½·¨1
Private Sub Form_Load()
Me.Height = 1 * Screen.TwipsPerPixelY
Me ......
´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ
printer.print "dsff"
.....
....
Printer.EndDoc
´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ
sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......
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Öб»Ñ¡ÖеÄÏîÄ¿¡£µ±¶ ......