主题：[求助]查询表-写成代码

原因：

http://www.foxtable.com/help/topics/1840.htm

您连代码该写在那里都不清楚，就开始编程是不对的。

建议您先按顺序看帮助。

看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。
三遍之后才开始做系统，先设计好表，想做什么功能，就做什么功能，遇到问题在帮助找答案，找不到的在论坛提问，不断遇到问题，不断解决问题，慢慢就熟悉了。
此外一定要先掌握《使用指南》，然后再看《开发指南》

参考：

http://www.foxtable.com/help/topics/0329.htm

例如这里的示例二：

http://www.foxtable.com/help/topics/0683.htm

合并excel和合并文本文件的代码是不同的，你不能硬套，合并Excel参考:

http://www.foxtable.com/help/topics/2334.htm

看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。
三遍之后才开始做系统，先设计好表，想做什么功能，就做什么功能，遇到问题在帮助找答案，找不到的在论坛提问，不断遇到问题，不断解决问题，慢慢就熟悉了。
此外一定要先掌握《使用指南》，然后再看《开发指南

If e.DataCol.Name = "订单号" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("订单号 = '" & e.NewValue & "' And 日期 <> #" e.datarow("日期") & "#")
    If dr IsNot Nothing Then
        MessageBox.Show("此订单号已经存在!")
        e.Cancel = True
    End If
End If

另： 不同的问题，请单独发帖提问