For Each ks As String =In DataTables("收费明细").GetValues("科室","[流水号] = '" & ls & "'")
http://www.foxtable.com/help/topics/1284.htm