主题：关于messagebox

         dr = DataTables("表d").Find("[材料标识] = '" & e.NewValue & "'")

        If dr IsNot Nothing Then

            e.DataRow("材料单价") = dr("合同基价")/1000

        Else

 e.DataRow("物料信息_材料单价") = Nothing

Static dt As Date = Date.Now '静态变量,用于保存上次备份的时间

Dim tp As TimeSpan
tp = Date.Now - dt
If tp.TotalHours >= 1 Then '超过一个小时才弹出一次
    dt = Date.Now
    messagebox.show(“ 无价格”)
End If

        End If