主题：计算包数

有明细表，每行都有一个包号

比如第一行，1号包

第二行，1号包

第三行，2号包

第四行，3号包

第五行，3号包

第六行，4号包，

 

怎么通过明细表计算有多少包？

Dim dt As DataTable = DataTables("表A")
Dim count As Integer = dt.GetValues("第一列").count
msgbox(count)