-- 作者:delxkjhgq
-- 发布时间:2013/10/22 14:35:00
-- 重新用个机子装了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 此主题相关图片如下:无标题.bmp
[此贴子已经被作者于2013-10-22 14:43:29编辑过]
|