e.Form.Controls("标签名").Text=DataTables("表名").Compute("Count(列名)")
For Each r As Row In Tables("表名").Rows If r("选中")= False Then r("选中")= True End IfNext