- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 请教老师 遍历赋值出错 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=121962)
-- 发布时间：2018/7/16 16:14:00
-- 请教老师 遍历赋值出错
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
此主题相关图片如下：1.jpg
-- 发布时间：2018/7/16 16:18:00
--
要判断一下AR是否存在
-- 发布时间：2018/7/16 16:53:00
--
For Each r As DataRow In Tables("CRMX").DataTable.Select("RQ isnull")
Dim A As String = R("NO")
Dim AR As DataRow
AR = DataTables("XSCKD").Find("[NO] =\'" & a & "\'")
If ar IsNot Nothing Then
R("RQ")=AR("RQ")
End If
Next
-- 发布时间：2018/7/16 17:00:00
--
[此贴子已经被作者于2018/7/16 17:00:11编辑过]
-- 发布时间：2018/7/16 17:03:00
--
谢谢 老师