求助一个循环写入数据的问题
本帖最后由 bcrun 于 2013-04-22 17:46:03 编辑 我准备往SQL SERVER数据库中写入一些数值,其中一些需要写到rs所在行的第73到第82的任一一个空列中,我用了for……next的代码,却发现根本写不进去,所以请教一个各位老师看看怎么回事?代码如下
sql = "select * from HousingResources where 房号 ='" & Trim(Text8.Text) & "'"
Call OpenConn
rs.Open sql, cn, 3, 3
If rs.RecordCount = 0 Then '判断数据库里无此数据
Text8 = ""
MsgBox ("房号不正确")
Call CloseConn
Exit Sub
Else
rs!定金 = Trim(Text4.Text)
rs!定房时间 = Now()
rs!付款方式 = Me.Combo1.Text
rs!首付款总额 = Trim(Text17.Text)
rs!贷款数额 = Trim(Text19.Text)
rs!客户已经付款额 = Trim(Text4.Text)
rs!欠款额 = Trim(Text18.Text)
rs!售楼员统计 = Trim(Text21.Text)
For i = 73 To 82
If rs.Fields(i).Value = Null Then
rs.Fields(i).Value = "该客户为认筹转签"
Exit For
Else
End If
Next i
rs.Update
Call CloseConn