这个意思?
Dim dr2 As DataRow = DataTables("T_JHK").find("ZYDM='" & dr("TDZYDM") & "' and YXDM = '" & dr("YXDM") & "'")