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


  ¹²ÓÐ1880È˹Ø×¢¹ý±¾ÌûÊ÷ÐδòÓ¡¸´ÖÆÁ´½Ó

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

˧¸çÓ´£¬ÀëÏߣ¬ÓÐÈËÕÒÎÒÂð£¿
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

 »Øµ½¶¥²¿
˧¸çÓ´£¬ÀëÏߣ¬ÓÐÈËÕÒÎÒÂð£¿
Hyphen
С´ó  2Â¥ | ÐÅÏ¢ | ËÑË÷ | ÓÊÏä | Ö÷Ò³ | UC


¼ÓºÃÓÑ ·¢¶ÌÐÅ
µÈ¼¶£ººüÉñ Ìû×Ó£º5015 »ý·Ö£º25363 ÍþÍû£º0 ¾«»ª£º0 ×¢²á£º2015/8/18 9:21:00
  ·¢ÌûÐÄÇé Post By£º2016/7/25 8:42:00 [Ö»¿´¸Ã×÷Õß]

ûÓÐÈκΰ취£¬tableÖ»ÄܶԼÓÔصÄÐвÙ×÷¡£

Èç¹ûÊý¾ÝÓÐÑϸñµÄ˳Ðò£¬¿ÉÒÔͨ¹ýDatatable²éѯ³öÀ´Ìí¼Óµ½tableÖУ¬È»ºó¹´ÉÏ¡£

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


¼ÓºÃÓÑ ·¢¶ÌÐÅ
µÈ¼¶£ºÎåβºü Ìû×Ó£º1172 »ý·Ö£º8772 ÍþÍû£º0 ¾«»ª£º0 ×¢²á£º2012/4/18 16:28:00
  ·¢ÌûÐÄÇé Post By£º2016/7/25 9:46:00 [Ö»¿´¸Ã×÷Õß]

ÀÏʦ£¬ÒÔÏÂÕâ¶Î´úÂë ÓÃÁË_Sortkey£¬ÉèÖÃÁ˱êÖ¾ÐР  ÊÇ¿ÉÒÔɸѡºóֻʣһÐÐʱ¿ÉÏòϹ´Ñ¡µÄ£¬£¨ÏÂÒ»ÐÐҲδÏÔʾ³öÀ´µÄʱºò£©   

'----------------ÉóÅúÍê³É¹´Ñ¡,ÏÂÒ»ÐÐÁ÷ת×Ô¶¯¹´Ñ¡     
If e.Col.name="ÉóÅúÍê³É" AndAlso e.Row("ÉóÅúÍê³É")=True  Then
    Dim fdr As DataRow = e.Table.DataTable.find("ÈÎÎñË÷Òý = '" & e.Row("ÈÎÎñË÷Òý") & "'and _Sortkey >= " & e.Row("_Sortkey") & " and _Identify <> " & e.Row("_Identify"), "_Sortkey ")
    If fdr IsNot Nothing  Then
        fdr("Á÷ת") = True     
     End If
End If
[´ËÌù×ÓÒѾ­±»×÷ÕßÓÚ2016/7/25 9:51:14±à¼­¹ý]

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


¼ÓºÃÓÑ ·¢¶ÌÐÅ
µÈ¼¶£ºÎåβºü Ìû×Ó£º1172 »ý·Ö£º8772 ÍþÍû£º0 ¾«»ª£º0 ×¢²á£º2012/4/18 16:28:00
  ·¢ÌûÐÄÇé Post By£º2016/7/25 11:49: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

 »Øµ½¶¥²¿
˧¸çÓ´£¬ÀëÏߣ¬ÓÐÈËÕÒÎÒÂð£¿
´óºìÅÛ
С´ó  5Â¥ | ÐÅÏ¢ | ËÑË÷ | ÓÊÏä | Ö÷Ò³ | UC


¼ÓºÃÓÑ ·¢¶ÌÐÅ
µÈ¼¶£º¹ó±ö Ìû×Ó£º39310 »ý·Ö£º196782 ÍþÍû£º0 ¾«»ª£º1 ×¢²á£º2015/4/25 9:23:00
  ·¢ÌûÐÄÇé Post By£º2016/7/25 12:14:00 [Ö»¿´¸Ã×÷Õß]

 ÉÏÒ»ÐУ¬ÏÂÒ»ÐÐÕâÑùµÄÅжÏÊDz»×¼È·µÄ°¡¡£²»ÒªÕâÑù´¦ÀíÊý¾Ý¡£

 

 ¾¡Á¿Ïñ3Â¥ÄÇÑùfindÊý¾Ý¡£


 »Øµ½¶¥²¿