- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- DataRow 出错 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=177388)
-- 发布时间：2022/5/19 21:06:00
-- DataRow 出错
For i As Integer = 0 To 3
Tables("设计任务排期表").position = i
Dim pr As String = Tables("设计任务排期表").Rows(i)("项目编号")
Dim dr As DataRow = DataTables("项目总表").Find("项目编号 = \'" & pr & "\'")
If dr Is Nothing Then
MessageBox.Show(dr("业务"))
End If
Next
此主题相关图片如下：snipaste_2022-05-19_21-05-22.jpg
-- 发布时间：2022/5/19 21:26:00
--
If dr Isnot Nothing Then
MessageBox.Show(dr("业务"))
End If