…… Else
Dim dr As DataRow
Dim tr As DataRow
dr = DataTables("当天砍运完成").Find("[单位] = '" & e.NewValue & "'","_Identify Desc")
tr = DataTables("计划").Find("[单位] = '" & e.NewValue & "'","_Identify Desc")
If dr IsNot Nothing
e.DataRow("过磅数吨数") = dr("过磅数")
e.DataRow("蔗场存蔗吨数") = dr("蔗场存蔗")
e.DataRow("地上存蔗吨数") = dr("地上存蔗")
End If
If tr IsNot Nothing
e.DataRow("砍车数") = tr("砍计划")
e.DataRow("运车数") = tr("运计划")
End If
End If
End If
加好友 
发短信
Post By：2021/10/9 10:35:00 [显示全部帖子]
