主题：[原创]查询统计表如何筛选与修改数据

Dim  r1 as Row 

Dim tb1 as Table = Tables("项目数据统计_Table1")   

r1 =tb1. Current

if r1 isnot nothing then

   For Each c As Col In tb1.Cols
      If c.IsNumeric Then
        r1(c.name) =   r1(c.name)*0.5 
      End If
   Next

End If