我做了个系统，里面用到两张表：yd与re，两张表中都有同一个字段ydno字段，我现在在一个窗体中要输入若干文本，有一个是ydno.text，我想判断该文本中输入的即ydno.text是否跟yd表中ydno是否一致，若一致则弹出个对话框“借碟信息添加成功”，并将其他的一些字段写到一个Grid中，该Grid主要是显示其他的一些re表中的信息。若不存在，弹出“没有该编号”。调试时，当输入yd表中的编号后却显示“没有该编号”。反正就是调的不对，我总觉的我的Sql语句写的不对！下面是代码，请好心人帮我看看哪错了！怎么改！感激不尽！！！我用的是Access数据库
Private Sub addBrwOK_Click()
Dim sql As String
sql = "select * from re"
Dim sql2 As String
Dim sql3 As String
Dim str As String
str = ydno.Text
sql2 = "select yd.ydno,re.ydno from yd, re where re.ydno=yd.ydno and yd.ydno ='" & ydno.Text & "'"


Set rs = TransactSQL(sql2)
If rs.EOF = True Then
MsgBox "没有该编号！！", vbOKOnly, "提示"
rs.Close
Else
Set rs = TransactSQL(sql)
rs.AddNew '添加新纪录
rs.Fields(0) = Trim(cuNO.Text)
rs.Fields(1) = Trim(cuName.Text)
rs.Fields(2) = Trim(cuType.Text)
rs.Fields(3) = Trim(ydno.Text)
rs.Fields(4) = Trim(ydname.Text)
rs.Fields(5) = Trim(Format(borrowDTP.Value, "yyyy-mm-dd"))
rs.Fields(6) = Trim(Format(returnDTP.Value, "yyyy-mm-dd"))
rs.Fields(7) = Trim(Format(rtnInfactDTP.Value, "yyyy-mm-dd"))
rs.Fields(8) = Trim(rtnLateFine.Text)
rs.Fields(9) = Trim(returnOther.Text)
rs.Update
MsgBox "借碟信息添加成功！", vbOKOnly
rs.Close

End If

End Sub

[此贴子已经被作者于2007-6-17 9:18:24编辑过]