¼±¡£¡£VB±àÒëʱ³ö´í£¡£¡
ÓÐÇë¸÷λ¸ßÊÖ°ïÎÒ¿´¿´¡£ÎªÊ²Ã´¡ÔÚÌí¼ÓеÄÐÅÏ¢°´¡°±£´æ¡±°´Å¥Ê±³öÏÖ¡°from×ÓÓï¾ä´íÎ󡱺͡°ÊµÊ±´íÎó-2147217900£¨800400e14£©¶ÔÏóRefreshµÄ·½·¨IAdodcʧ°Ü¡±ºÍÉÏÃæÌáʾ £¬²¢ÇÒÐòºÅÒ»ÁÐÎÞ·¨Éú³ÉÁ¬¹áÐòºÅºìȦ´¦£¬ÎªÊ²Ã´¡£¡£¡£¡£ ºÁÎÞÍ·Ð÷£¬Íûǰ±²ÃDz»ØÄ´Í½Ì˵˵ÔÒò¡£¡£ÏÈллÀ²£¡£¡£¡£¡£¡
²¿·Ö´úÂëÈçÏ£º
Private Sub cmdAdd_Click()
isAdd = True
SaveCancelEnabled
AdodcReaderType.Recordset.AddNew
TextEnabledTrue
txtReaderTypeNo(0).SetFocus
End Sub
Private Sub cmdCancel_Click()
If AdodcReaderType.Recordset.RecordCount > 0 Then
AdodcReaderType.Recordset.CancelUpdata
End If
initialCmd
TextEnabledFalse
DataGridReaderType.Refresh
AdodcReaderType.Refresh
End Sub
Private Sub cmdClose_Click()
End
Unload Me
End Sub
Private Sub cmdDelete_Click()
If MsgBox("ÕæµÄҪɾ³ýÀà±ðÃû³ÆÎª£º¡¾" & Trim(txtReaderTypeName.Text) & "¡¿µÄÀà±ðÂ𣿠", vbYesNo, "ÌáʾÐÅÏ¢") = vbYes Then
AdodcReaderType.Recordset.Delete
AdodcReaderType.Recordset.MoveNext
If AdodcReaderType.Recordset.EOF Then
AdodcReaderType.Recordset.MovePrevious
If AdodcR
Ïà¹ØÎÊ´ð£º
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
¸÷λ´óϺ£º
ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......
µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
ÓÃvc±àдµÄdllÔÚdebugģʽºÍreleaseģʽÏÂÆô¶¯vbµÄexe³ÌÐòµ÷ÓÃvcµÄdll¿ÉÒԵõ½ÕýÈ·½á¹û£¬µ«ÊÇÈç¹ûÖ±½ÓË«»÷vbµÄexe³ÌÐòµ÷ÓÃdll±¨´í£¬ÔÚdllÄÚ²¿Ìí¼Ómessageboxºó·¢ÏÖÖ»ÒªÔÚº¯ÊýÄÚ²¿ÉùÃ÷std::stringÀàÐ͵ıäÁ¿¾Í»á³öÏÖÄ ......