Foxtable(ºü±í) ¡ú Óû§À¸Ä¿ ¡ú ר¼Ò×øÌà ¡ú Ϊʲô״̬À¸Ã»ÏÔʾ×Ô¶¯¼ÆËã½á¹û


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

Ö÷Ì⣺Ϊʲô״̬À¸Ã»ÏÔʾ×Ô¶¯¼ÆËã½á¹û

ÃÀŮѽ£¬ÀëÏߣ¬ÁôÑÔ¸øÎÒ°É£¡
²É¾Õ¶«ÀéÏÂ
С´ó  1Â¥ | ÐÅÏ¢ | ËÑË÷ | ÓÊÏä | Ö÷Ò³ | UC


¼ÓºÃÓÑ ·¢¶ÌÐÅ
µÈ¼¶£º°Ëβºü Ìû×Ó£º1881 »ý·Ö£º10374 ÍþÍû£º0 ¾«»ª£º0 ×¢²á£º2019/4/6 8:45:00
Ϊʲô״̬À¸Ã»ÏÔʾ×Ô¶¯¼ÆËã½á¹û  ·¢ÌûÐÄÇé Post By£º2023/10/19 12:52:00 [ÏÔʾȫ²¿Ìû×Ó]

×Ô¶¨Òå²Ëµ¥ºóÎÞ·¨Ö´ÐÐϵͳ×Ô´øµÄ״̬À¸ÏÔʾ×Ô¶¯¼ÆËã½á¹û£¬ÎÒÔÚÈ«¾Ö±íʼþAfterSelRangeChangeÖÐдÏÂÒ»Ãæ´úÂ룺
Dim t As Table
RibbonMenu.StatusBar.Message3 = ""
If e.Table IsNot CurrentTable OrElse CurrentTable Is Nothing Then
    Return
Else
    t = CurrentTable
End If
With t
    If .TopRow = .BottomRow AndAlso .LeftCol = .RightCol Then
        Return
    End If
    For c As Integer = .LeftCol To .RightCol
        If .Cols(c).IsNumeric = False Then
            RibbonMenu.StatusBar.Message3 = "¸öÊý:" & .Aggregate(AggregateEnum.Count, .TopRow,.LeftCol,.BottomRow,.RightCol) & "  ÀÛ¼Æ:" & 0 & "  ƽ¾ù:" & 0 & "  ×î´óÖµ:" & 0 & "  ×îСֵ:" & 0
        Else
            RibbonMenu.StatusBar.Message3 = "¸öÊý:" & .Aggregate(AggregateEnum.Count, .TopRow,.LeftCol,.BottomRow,.RightCol) & "  ÀÛ¼Æ:" & .Aggregate(AggregateEnum.Sum,.TopRow,.LeftCol,.BottomRow,.RightCol) & "  ƽ¾ù:" & .Aggregate(AggregateEnum.Average,.TopRow,.LeftCol,.BottomRow,.RightCol) & "  ×î´óÖµ:" & .Aggregate(AggregateEnum.Max,.TopRow,.LeftCol,.BottomRow,.RightCol) & "  ×îСֵ:" & .Aggregate(AggregateEnum.Min,.TopRow,.LeftCol,.BottomRow,.RightCol)
        End If
    Next
End With


ÏîĿʼþÖÐҲдÏ£º
For Each dt As DataTable In DataTables
    dt.GlobalHandler.AfterSelRangeChange = True
Next

״̬À¸Ã»ÏÔʾ×Ô¶¯¼ÆË㣿

 »Øµ½¶¥²¿
ÃÀŮѽ£¬ÀëÏߣ¬ÁôÑÔ¸øÎÒ°É£¡
²É¾Õ¶«ÀéÏÂ
С´ó  2Â¥ | ÐÅÏ¢ | ËÑË÷ | ÓÊÏä | Ö÷Ò³ | UC


¼ÓºÃÓÑ ·¢¶ÌÐÅ
µÈ¼¶£º°Ëβºü Ìû×Ó£º1881 »ý·Ö£º10374 ÍþÍû£º0 ¾«»ª£º0 ×¢²á£º2019/4/6 8:45:00
  ·¢ÌûÐÄÇé Post By£º2023/10/19 17:38:00 [ÏÔʾȫ²¿Ìû×Ó]

ÄãµÄ´úÂëֻͳ¼ÆÊý×ÖÁÐÊý¾Ý£¬Èç¹ûÏëÈçexceÄÇÑùÈç¹ûÊÇ×Ö·ûÁлò×Ö·ûÓëÊý×ÖÁв¢´æ£¬Ö»Í³¼ÆÑ¡ÔñÇøÓòµ¥Ôª¸ñÄÚÓÐЧ¸öÊý£¬ÎÒÕâÑùдһÑù²»ÄÜͳ¼Æ£¬Ó¦ÈçºÎдÄØ£¿ÕâÊÇÒ»¸öºÜ·½±ãʵÓõŦÄÜ£¬Ï£ÍûÄãÃǵÄÈí¼þͬÑùÓУ¬Èç¹ûÈí¼þ×Ô´ø´Ë¹¦ÄÜ£¬ÎÒÃǾͲ»Ó÷Ѿ¢×Ô¼º±à´úÂëÁË¡£
'ÒÔÏ´úÂëÓÃÓÚÔÚ״̬À¸ÏÔʾ×Ô¶¯¼ÆËã½á¹û£º
With e.Table
    If .TopRow = .BottomRow AndAlso .LeftCol = .RightCol Then
        Return
    End If
    Dim bb As Boolean = True
    For c As Integer = .LeftCol To .RightCol
        If .Cols(c).IsNumeric = False Then
            bb = False
            Exit For
        End If
    Next
    If bb = False Then
        RibbonMenu.StatusBar.Message3 = "¸öÊý:" & .Aggregate(AggregateEnum.Count, .TopRow,.LeftCol,.BottomRow,.RightCol) & "  ÀÛ¼Æ:" & 0 & "  ƽ¾ù:" & 0 & "  ×î´óÖµ:" & 0 & "  ×îСֵ:" & 0
    Else
        RibbonMenu.StatusBar.Message3 = "¸öÊý:" & .Aggregate(AggregateEnum.Count, .TopRow,.LeftCol,.BottomRow,.RightCol) & "  ÀÛ¼Æ:" & .Aggregate(AggregateEnum.Sum,.TopRow,.LeftCol,.BottomRow,.RightCol) & "  ƽ¾ù:" & .Aggregate(AggregateEnum.Average,.TopRow,.LeftCol,.BottomRow,.RightCol) & "  ×î´óÖµ:" & .Aggregate(AggregateEnum.Max,.TopRow,.LeftCol,.BottomRow,.RightCol) & "  ×îСֵ:" & .Aggregate(AggregateEnum.Min,.TopRow,.LeftCol,.BottomRow,.RightCol)
    End If
End With
RibbonMenu.StatusBar.Refresh
[´ËÌù×ÓÒѾ­±»×÷ÕßÓÚ2023/10/19 17:53:49±à¼­¹ý]

 »Øµ½¶¥²¿
ÃÀŮѽ£¬ÀëÏߣ¬ÁôÑÔ¸øÎÒ°É£¡
²É¾Õ¶«ÀéÏÂ
С´ó  3Â¥ | ÐÅÏ¢ | ËÑË÷ | ÓÊÏä | Ö÷Ò³ | UC


¼ÓºÃÓÑ ·¢¶ÌÐÅ
µÈ¼¶£º°Ëβºü Ìû×Ó£º1881 »ý·Ö£º10374 ÍþÍû£º0 ¾«»ª£º0 ×¢²á£º2019/4/6 8:45:00
  ·¢ÌûÐÄÇé Post By£º2023/10/19 18:30:00 [ÏÔʾȫ²¿Ìû×Ó]

ÎÒ¸Õ²ÅÊÔʱÒÔΪÄãµÄ´úÂëÔÚ´°¿ÚÖÐÄÜÏÔʾÁË£¬Ë­Öª»¹ÊDz»ÐУ¬ÄÇÖ»ÊÇÔÚ±íAÖвâÊÔ£¬ÊÇϵͳ×Ô´øµÄ¹¦ÄÜ£¬ÏµÍ³²»ÄÜͳ×Ö·ûÁмƸöÊý¡£ÎÒÉÏ´«ÊµÀýÄãÊÔÊÔ°É£¬ÕâÊÇÎÒÃǼÒÐÂÂ¥×¼±¸×°ÐÞµÄÔ¤ËãÊý¾Ý¡£
 ÏÂÔØÐÅÏ¢  [Îļþ´óС£º   ÏÂÔØ´ÎÊý£º ]
ͼƬµã»÷¿ÉÔÚд°¿Ú´ò¿ª²é¿´µã»÷ä¯ÀÀ¸ÃÎļþ:×°ÐÞÔ¤Ëã.foxdb



 »Øµ½¶¥²¿
ÃÀŮѽ£¬ÀëÏߣ¬ÁôÑÔ¸øÎÒ°É£¡
²É¾Õ¶«ÀéÏÂ
С´ó  4Â¥ | ÐÅÏ¢ | ËÑË÷ | ÓÊÏä | Ö÷Ò³ | UC


¼ÓºÃÓÑ ·¢¶ÌÐÅ
µÈ¼¶£º°Ëβºü Ìû×Ó£º1881 »ý·Ö£º10374 ÍþÍû£º0 ¾«»ª£º0 ×¢²á£º2019/4/6 8:45:00
  ·¢ÌûÐÄÇé Post By£º2023/10/20 10:24:00 [ÏÔʾȫ²¿Ìû×Ó]

    ÄãÉÏ´«µÄЧ¹ûÊÇÀûÓÃϵͳ²Ëµ¥ÊµÏֵģ¬ÎÒÏÖÔÚÊÇ×Ô¶¨Òå²Ëµ¥£¬ÔÚ×Ô¶¨Òå²Ëµ¥ÏÂÎÞ·¨ÔÚ״̬À¸ÏÔʾͳ¼ÆÊý¾Ý£¬»¹ÓÐÎҵĴúÂëÒâ˼ÊÇÈç¹ûÓÐÊý¾ÝÁС¢×Ö·ûÁУ¬Ö»Í³¼Æµ¥Ôª¸ñÄÚÓÐЧÄÚÈݸöÊý£¬ÆäËûͳ¼ÆÀ´Ã»ÒâÒ壬Ҳ¾ÍÊÇÆäËû¶¼Îª0£¬Ö»¼ÆÊý¸öÊý¡£ÎÒ×òÍí°²ÄãÖ¸ÒýµÄ˼·»Øµ½×Ô¶¨Òå²Ëµ¥ÖÐд´úÂ룬·¢ÏÖÔÚ´°¿ÚÑ¡ÇøÓò£¬×´Ì¬À¸»¹ÊÇûÏÔʾͳ¼Æ¡£

 ÏÂÔØÐÅÏ¢  [Îļþ´óС£º   ÏÂÔØ´ÎÊý£º ]
ͼƬµã»÷¿ÉÔÚд°¿Ú´ò¿ª²é¿´µã»÷ä¯ÀÀ¸ÃÎļþ:×°ÐÞÔ¤Ëã20231020.foxdb


[´ËÌù×ÓÒѾ­±»×÷ÕßÓÚ2023/10/20 10:25:10±à¼­¹ý]

 »Øµ½¶¥²¿
ÃÀŮѽ£¬ÀëÏߣ¬ÁôÑÔ¸øÎÒ°É£¡
²É¾Õ¶«ÀéÏÂ
С´ó  5Â¥ | ÐÅÏ¢ | ËÑË÷ | ÓÊÏä | Ö÷Ò³ | UC


¼ÓºÃÓÑ ·¢¶ÌÐÅ
µÈ¼¶£º°Ëβºü Ìû×Ó£º1881 »ý·Ö£º10374 ÍþÍû£º0 ¾«»ª£º0 ×¢²á£º2019/4/6 8:45:00
  ·¢ÌûÐÄÇé Post By£º2023/10/20 11:09:00 [ÏÔʾȫ²¿Ìû×Ó]

    Èç¹û°ÑFoxTable×÷ΪʹÓù¤¾ßϵͳ²Ëµ¥·½±ã£¬µ«Èç¹û°ÑFoxtable×÷Ϊ¿ª·¢Èí¼þ£¬ÏµÍ³²Ëµ¥ÉϺܶ๦Äܲ»ÊÊÓã¬ÎÒ Ò»Ö±ÔÚѧϰ£¬Í¨¹ýÔÚÂÛ̳Éϲ»¶Ï·¢ÌùÎÊÎÒÓöµ½µÄÎÊÌ⣬ÎÞ·ÇÏëÕÆÎÕ±à³Ì¡¢¿ª·¢µÄ·½·¨¡¢¼¼ÇÉ£¬ÎÒÒѾ­ºÜ¾ÃûÔÚÂÛ̳·¢ÌùÎÊÁË£¬Ò»Ö±¶¼ÔÚ×Ô¼ºÄ¬Ä¬Å¬Á¦£¬¾¡¿ÉÄÜ×Ô¼ºÏë°ì·¨£¬¶à¿´°ïÖú£¬×ÔÒѽâ¾ö£¬·´¸´¿´°ïÖúºóÖÕÓÚŪ¶®Ê²Ã´Çé¿öÏÂÓÃʲô·½·¨½â¾ö£¬´úÂëдÔÚÄĺÏÊÊ£¬ÎÒÖªµÀÕâЩ¶¼ÊÇ»ù±¾ÒªÇ󣬵«ÕâЩÎÒÖ»×÷ÐËȤѧϰ£¬Ã»´óѧÉúÃÇרҵѧϰµÄ¾«Éî¡¢Ó¦ÊÖ£¬ÎÒÒÑÍËÐݼ¸Ä꣬¼ÇÒäÁ¦¼õÍË£¬ºÜ¶à¶«Î÷¼Ç²»×¡ÁË£¬ÕýÈçÄã˵ͬһÎÊÌâÓÐʱ»á·´¸´ÎÊ¡£ÐÇÆÚÒ»ÏóÆåЭ»áÓÐÏóÆå±ÈÈü£¬ÎÒ´ú±íÎÒÃÇÊвÎÈü£¬µÈÐÇÆÚ¶þÔÙϸϸÏëÕâÎÊÌâÔõ½â¾ö£¬ÕâÊDz˵¥ÉϵĴúÂëעʶÁË£¬ÔÚÈ«¾Ö±íʼþÉÏд´úÂ룬״̬À¸ÒÀȻû×Ô¶¯Í³¼ÆµÄÇé¿ö¡£
 ÏÂÔØÐÅÏ¢  [Îļþ´óС£º   ÏÂÔØ´ÎÊý£º ]
ͼƬµã»÷¿ÉÔÚд°¿Ú´ò¿ª²é¿´µã»÷ä¯ÀÀ¸ÃÎļþ:Ô¤Ëã.foxdb


[´ËÌù×ÓÒѾ­±»×÷ÕßÓÚ2023/10/20 11:20:43±à¼­¹ý]

 »Øµ½¶¥²¿
ÃÀŮѽ£¬ÀëÏߣ¬ÁôÑÔ¸øÎÒ°É£¡
²É¾Õ¶«ÀéÏÂ
С´ó  6Â¥ | ÐÅÏ¢ | ËÑË÷ | ÓÊÏä | Ö÷Ò³ | UC


¼ÓºÃÓÑ ·¢¶ÌÐÅ
µÈ¼¶£º°Ëβºü Ìû×Ó£º1881 »ý·Ö£º10374 ÍþÍû£º0 ¾«»ª£º0 ×¢²á£º2019/4/6 8:45:00
  ·¢ÌûÐÄÇé Post By£º2023/10/20 11:17:00 [ÏÔʾȫ²¿Ìû×Ó]

9Â¥ÉÏ´«Á˸ĺóµÄÇé¿ö£¬ÔÚ×Ô¶¨Òå²Ëµ¥Ä£Ê½×´Ì¬À¸ÎÞÏÔʾͳ¼Æ½á¹û¡£

 »Øµ½¶¥²¿
ÃÀŮѽ£¬ÀëÏߣ¬ÁôÑÔ¸øÎÒ°É£¡
²É¾Õ¶«ÀéÏÂ
С´ó  7Â¥ | ÐÅÏ¢ | ËÑË÷ | ÓÊÏä | Ö÷Ò³ | UC


¼ÓºÃÓÑ ·¢¶ÌÐÅ
µÈ¼¶£º°Ëβºü Ìû×Ó£º1881 »ý·Ö£º10374 ÍþÍû£º0 ¾«»ª£º0 ×¢²á£º2019/4/6 8:45:00
  ·¢ÌûÐÄÇé Post By£º2023/10/20 11:48:00 [ÏÔʾȫ²¿Ìû×Ó]

ÓÃ2Â¥µÄ´úÂ룬ÔÚ×Ô¶¨Òå²Ëµ¥ÏÂÑ¡´°¿ÚÖеÄÇøÓò£¬×´Ì¬À¸ÒÀȻûÏÔʾͳ¼Æ£¬ÔÙÕß2Â¥µÄ´úÂëÖ»ÒªÊý×ÖÁÐÓÐÊý¾Ý¾Í»áͳ¼ÆÀÛ¼ÆÊý¡¢Æ½¾ùÖµ¡¢×î´ó¡¢×îСÊý£¬²»·ûºÏÒªÇó£¬ÎÒÒªÇóֻҪѡ¶¨ÇøÓòÓÐÒ»¸ö×Ö·û£¬¾Íֻͳ¼Æ¸öÊý£¬ÆäËûͳ¼ÆΪ0£¬·ñÔò״̬À¸¸÷×ÔÏÔʾ¸öÊý¡¢ÀÛ¼ÆÊý¡¢Æ½¾ùÖµ¡¢×î´ó¡¢×îСֵ¡£
[´ËÌù×ÓÒѾ­±»×÷ÕßÓÚ2023/10/20 15:52:54±à¼­¹ý]

 »Øµ½¶¥²¿
ÃÀŮѽ£¬ÀëÏߣ¬ÁôÑÔ¸øÎÒ°É£¡
²É¾Õ¶«ÀéÏÂ
С´ó  8Â¥ | ÐÅÏ¢ | ËÑË÷ | ÓÊÏä | Ö÷Ò³ | UC


¼ÓºÃÓÑ ·¢¶ÌÐÅ
µÈ¼¶£º°Ëβºü Ìû×Ó£º1881 »ý·Ö£º10374 ÍþÍû£º0 ¾«»ª£º0 ×¢²á£º2019/4/6 8:45:00
  ·¢ÌûÐÄÇé Post By£º2023/10/20 12:23:00 [ÏÔʾȫ²¿Ìû×Ó]

ÎÒÖÕÓÚÖªµÀÎÊÌâ³öÔÚÄÄÁË£¬²»ÊÇ´úÂëÎÊÌ⣬ÎÒдµÄ´úÂë¾ÍÊÇÎÒÒªµÄЧ¹û£¬°Ñ´úÂë¸ÄΪºìÉ«±ê×¢£º
'ÒÔÏ´úÂëÓÃÓÚÔÚ״̬À¸ÏÔʾ×Ô¶¯¼ÆËã½á¹û£º
With e.Table
    If .TopRow = .BottomRow AndAlso .LeftCol = .RightCol Then
        Return
    End If
    Dim bb As Boolean = True
    For c As Integer = .LeftCol To .RightCol
        If .Cols(c).IsNumeric = False Then
            bb = False
            Exit For
        End If
    Next
    If bb = False Then
        RibbonMenu.StatusBar.Message2 = "¸öÊý:" & .Aggregate(AggregateEnum.Count, .TopRow,.LeftCol,.BottomRow,.RightCol) & "  ÀÛ¼Æ:" & 0 & "  ƽ¾ù:" & 0 & "  ×î´óÖµ:" & 0 & "  ×îСֵ:" & 0
    Else
        RibbonMenu.StatusBar.Message= "¸öÊý:" & .Aggregate(AggregateEnum.Count, .TopRow,.LeftCol,.BottomRow,.RightCol) & "  ÀÛ¼Æ:" & .Aggregate(AggregateEnum.Sum,.TopRow,.LeftCol,.BottomRow,.RightCol) & "  ƽ¾ù:" & .Aggregate(AggregateEnum.Average,.TopRow,.LeftCol,.BottomRow,.RightCol) & "  ×î´óÖµ:" & .Aggregate(AggregateEnum.Max,.TopRow,.LeftCol,.BottomRow,.RightCol) & "  ×îСֵ:" & .Aggregate(AggregateEnum.Min,.TopRow,.LeftCol,.BottomRow,.RightCol)
    End If
End With
RibbonMenu.StatusBar.Refresh
Êý¾ÝÔÚ״̬À¸ÖмäÕý³£ÏÔʾ£¬¸ÄΪ3Êý¾ÝÔÚ״̬À¸ÓÒ±ßÏÔʾ£¬³öÏÖÉÁÍË£¬ºÜ¿ìûÁË£¬ÎªÊ²Ã´£¿
[´ËÌù×ÓÒѾ­±»×÷ÕßÓÚ2023/10/20 12:24:08±à¼­¹ý]

 »Øµ½¶¥²¿
ÃÀŮѽ£¬ÀëÏߣ¬ÁôÑÔ¸øÎÒ°É£¡
²É¾Õ¶«ÀéÏÂ
С´ó  9Â¥ | ÐÅÏ¢ | ËÑË÷ | ÓÊÏä | Ö÷Ò³ | UC


¼ÓºÃÓÑ ·¢¶ÌÐÅ
µÈ¼¶£º°Ëβºü Ìû×Ó£º1881 »ý·Ö£º10374 ÍþÍû£º0 ¾«»ª£º0 ×¢²á£º2019/4/6 8:45:00
  ·¢ÌûÐÄÇé Post By£º2023/10/20 12:30:00 [ÏÔʾȫ²¿Ìû×Ó]

Ö÷²Ëµ¥Ê¼þÉÏÔç¾ÍעʶÁË´úÂ룬ÎÒÒ»Ö±ÔÚ×Ô¶¨Òå²Ëµ¥Ä£Ê½²âÊÔ£¬²»ÐÅÄãÊÔÊÔ¡£
Message2¸ÄΪMessage3¾ÍÉÁÍË¡£
 ÏÂÔØÐÅÏ¢  [Îļþ´óС£º   ÏÂÔØ´ÎÊý£º ]
ͼƬµã»÷¿ÉÔÚд°¿Ú´ò¿ª²é¿´µã»÷ä¯ÀÀ¸ÃÎļþ:·¿ÎÝ×°ÐÞÔ¤Ëã.foxdb


 »Øµ½¶¥²¿
ÃÀŮѽ£¬ÀëÏߣ¬ÁôÑÔ¸øÎÒ°É£¡
²É¾Õ¶«ÀéÏÂ
С´ó  10Â¥ | ÐÅÏ¢ | ËÑË÷ | ÓÊÏä | Ö÷Ò³ | UC


¼ÓºÃÓÑ ·¢¶ÌÐÅ
µÈ¼¶£º°Ëβºü Ìû×Ó£º1881 »ý·Ö£º10374 ÍþÍû£º0 ¾«»ª£º0 ×¢²á£º2019/4/6 8:45:00
  ·¢ÌûÐÄÇé Post By£º2023/10/20 15:50:00 [ÏÔʾȫ²¿Ìû×Ó]

ÍüÁËÖ÷²Ëµ¥ÀﻹÓÐÒ»¶Î״̬À¸´úÂëûɾ£¬É¾³ýºóÐÐÁË£¬Ð»Ð»Ö¸½Ì¡£Õ⹦ÄܸúExcelÀïµÄÈκÎÑ¡ÓòÇóºÍ¡¢Çó¸öÊýÒ»ÑùÁË¡£

 »Øµ½¶¥²¿
×ÜÊý 11 1 2 ÏÂÒ»Ò³