主题：请教老师 遍历赋值出错

For Each r As DataRow In Tables("CRMX").DataTable.Select("RQ is  null")
Dim A As String = R("NO")
Dim AR As DataRow
AR = DataTables("XSCKD").Find("[NO] ='A'")
R("RQ")=AR("RQ")
Next