ÎÒÓÃ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
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ Type ID number As Single score As Integer name As String * 6 End Type Dim personl As ID, i% Private Sub Command1_Click() i = 0 &nbs ......