Dim hth As WinForm.TextBox = e.Form.Controls("合同号") Dim kh As WinForm.TextBox = e.Form.Controls("款号") Dim drs As DataRow drs = DataTables("订单主表").Find("合同号 = '" & hth.text & "'and 款号 = '" & kh.text & "'") If drs IsNot Nothing Then '如果找到的话 MessageBox.Show("已经有相同的款号数据") hth.text = "" kh.text = "" End If