主题：重新用个机子装了FT，ACC，用FT的代码操作不了ACC，请大神看看。

此主题相关图片如下：未命名.png

我有MSG测了一下出现以下提示：

Dim qq As WinForm.TextBox = e.Form.Controls("TextBox1")
If qq.text<> "" Then
    Dim cmd1 As New SQLCommand
    Dim dt1 As DataTable
    cmd1.C
    cmd1.CommandText = "Select * From {入库草稿表}"
    dt1 = cmd1.ExecuteReader(True)
    Dim dr1 As DataRow= dt1.find("[入库单号]= '" & qq.text & "'")
MessageBox.Show(dr1("交货单号"))
    If dr1 IsNot Nothing Then
        MessageBox.Show("单号重复!","提示")
        qq.text= ""
        qq.Select
    End If
End If