Foxtable(ºü±í) ¡ú Óû§À¸Ä¿ ¡ú ר¼Ò×øÌà ¡ú ɸѡֻʣһÐÐʱ¹´Ñ¡ÉÏÒ»ÐеÄÎÊÌâ


  ¹²ÓÐ1887È˹Ø×¢¹ý±¾Ìûƽ°å´òÓ¡¸´ÖÆÁ´½Ó

Ö÷Ì⣺ɸѡֻʣһÐÐʱ¹´Ñ¡ÉÏÒ»ÐеÄÎÊÌâ

˧¸çÓ´£¬ÀëÏߣ¬ÓÐÈËÕÒÎÒÂð£¿
douglas738888
С´ó  1Â¥ | ÐÅÏ¢ | ËÑË÷ | ÓÊÏä | Ö÷Ò³ | UC


¼ÓºÃÓÑ ·¢¶ÌÐÅ
µÈ¼¶£ºÎåβºü Ìû×Ó£º1172 »ý·Ö£º8772 ÍþÍû£º0 ¾«»ª£º0 ×¢²á£º2012/4/18 16:28:00
ɸѡֻʣһÐÐʱ¹´Ñ¡ÉÏÒ»ÐеÄÎÊÌâ  ·¢ÌûÐÄÇé Post By£º2016/7/24 20:44:00 [Ö»¿´¸Ã×÷Õß]

Çë½ÌÀÏʦ£¬ÒÔÏ´úÂëµÄʹÓã¬Èç¹ûɸѡºóֻʣһÐÐʱ£¬¶ÔÉÏÒ»ÐеĹ´Ñ¡ÊDz»ÄÜʵÏֵģ¬ÔõÑù²ÅÄÜʵÏÖ£¬É¸Ñ¡Ö»Ê£Ò»ÐÐʱ£¬Ò²Äܹ´Ñ¡Î´ÏÔʾ³öÀ´µÄÉÏÒ»ÐС£

If Forms("Éè¼Æ´ýÉó").Opened Then
Dim r As Row = Tables("Éè¼Æ´ýÉó_Table3").Current
Dim idx As Integer = r.Index - 1
If idx >= 0 Then
   If r("»ØÍË") = True Then
    r = Tables("Éè¼Æ´ýÉó_Table3").Rows(idx)
    r("ÉóÅúÍê³É") = False
    r("Á÷ת") = False  
      End If
   End If
End If

 »Øµ½¶¥²¿