ÎÒÓÃDataGridÏÔʾÁËÈýÌõ¼Ç¼µÄ±êÌ⣬ÊÇ´ÓAcessÖÐËѳöÀ´µÄ£¬ÎÒÏÖÔÚÏëÒªµÄ¾ÍÊÇÊó±êµã»÷ÆäÖÐÒ»Ìõ£¬¾Í¿ÉÒÔÔÚÒ»¸öд°¿ÚÖÐÏÔʾÕâÌõ¼Ç¼µÄÏêϸÄÚÈÝ£¬Êý¾Ý¿âÖбêÌâºÍÄÚÈݵÄ×ֶηֱðÊÇtitleºÍcontent£¬ÇëÎÊÎÒ¸ÃÔõô×ö¡£ Èç¹û¿ÉÒԵϰ£¬Çë˵µÄÏêϸµã£¬Ð¡µÜÊǸöÐÂÊÖ£¬Ö»»áÓà Private Sub DataGrid1_Click() Form2.Show End Sub À´ÏÔʾд°¿Ú£¬Ê®·Ö׿±£¬ÐèÒª°ïÖú£¬Ð»Ð»ÁËÓù«¹²±äÁ¿ÊÇ×î¼òµ¥µÄ·½·¨... datagrid_mousemove µ÷¶¯tooltiptext ÕâÑùÓÐʲôÎÊÌâ? VB code: Private Sub DataGrid1_Click() If DataGrid1.Row <= 0 Then MsgBox "ÇëÑ¡ÖÐÒ»Ìõ¼Ç¼" Exit Sub End If
Form2.vID = DataGrid1.Text 'Form2Öж¨ÒåÒ»¸ö¹«ÓÐÀàÐͱäÁ¿,Form2_loadÖа´Õâ¸öÖµÀ´²éѯ Form2.Show End Sub
Private Sub Form_Load() recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý If recs > 0 Then 'ÒÑÓп¼Éú Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼ num = V ......
ÎÒÓÃVB×Ô´øµÄTextBox¿Ø¼þ£¬ Option Explicit Private Type De '¿é¶¨Òå FSize(1 To 1024) As Byte End Type Private Sub Command1_Click() Dim F As De Dim N As Integer Open "C:\WINDOWS\N ......