dim drs as List(Of datarow) = DataTables("收款明细表").Select("客户名称 = '" & e.datarow("客户名称") & "'")
msgbox(drs.count)