红色代码弹出什么值？你逻辑是不是有错？
For Each lm As String() In tb6.DataTable.GetValues("系统编号|项目名称|开标日期|开标时间")
'For Each lm As String() In tb6.DataTable.GetValues("系统编号|项目名称|开标日期")
Dim ndr As DataRow = tb5.DataTable.AddNew()
ndr("系统编号") = lm(0)
ndr("项目名称") = lm(1)
ndr("开标日期") = lm(2)
ndr("开标时间") = lm(3)
msgbox("aaa:" & lm(3))
For Each dc As DataCol In tb6.DataTable.DataCols
If dc.Name = str Then
For Each dr1 As DataRow In tb6.DataTable.Select("系统编号 = '" & lm(0) & "'")
ndr(dr1("投标单位")) = dr1(dc.Name)
Dim fdr As DataRow = DataTables("开标记录").Find("系统编号 = '" & lm(0) & "' And 中标单位 = '" & dr1("投标单位") & "'")
If fdr IsNot Nothing Then
ndr("中标基准价") = dr1(dc.Name)
ndr("开标时间") = dr1("开标时间")
End If
msgbox("bbb:" & dr1("开标时间"))
Next
End If
Next
Next
加好友 
发短信
Post By：2019/3/21 15:18:00 [显示全部帖子]
