Dim dr As DataRow = DataTables("客户").Find("客户名称 = '" & r("客户名称") & "' and 公司名称 = '" & r("公司名称") & "'")