专家坐堂-代码错误问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim d As Date = e.Form.Controls("取件日期").Value

Dim t As Date = e.Form.Controls("取件时间").Value

Dim re As String = e.Form.Controls("取件人").Value

Dim dw As String = e.Form.Controls("取件单位").Value

For Each dr As DataRow In DataTables("取件登记_Table1").dataRows

If dr("快递编号") > "" Then

MessageBox.Show(dr("快递编号"))

Dim fr As DataRow = DataTables("T_Express").SQLFind("快递编号 = \'" & dr("快递编号") & "\'")

If fr IsNot Nothing Then

fr("取件日期") = d

fr("取件时间") = t

fr("取件人") = re

fr("收件单位") = dw

fr.save

Else

MessageBox.show("所登记快递编号为【" & dr("快递编号") & "】未找到收件登记信息,请确认,谢谢!")

End If

MessageBox.Show("登记的快递编号已经保存,点击【确定】之后将关闭窗口")

e.Form.close