Dim Count As IntegerFor Each r1 As Row In Tables("窗口1_Table1").GetCheckedRows Count = count + 1 '这里要怎么写?请教老师Next
e.Form.Controls("Label").Text = count & "条"