我想给老婆做和库存软件,但是在添加记录的时候老是说类型不匹配,麻烦高人看看问题出在哪里,谢谢
If kcflag = 1 Then
Command2.Caption = "入库"
Call Module1.opendatabase
sqlruku = "select * from DB_Ruku where (RK_bianhao='" & Trim(Text1.Text) & "')"
rs.Open sqlruku, conn, 1, 1
rs.Close
rs.Open sqlruku, conn, 1, 3
rs.AddNew
rs("RK_bianhao") = Trim(Text1.Text)
rs("RK_danjia") = Trim(Text4.Text)
rs("RK_shuliang") = Trim(Text5.Text)
rs("RK_zongjia") = Trim(Text6.Text)
rs("RK_beizhu") = Trim(Text7.Text)
rs.Update
Call Module1.closedatabase
Unload Me
Unload warehouse
warehouse.Show
执行的时候老是说rs("RK_danjia") = Trim(Text4.Text)类型不匹配
Dim SQL As String
If kcflag = 1 Then
Command2.Caption = "入库"
Call Module1.opendatabase
SQL = "select * from DB_Warehouse where (WH_bianhao='" & Trim(Text1.Text) & "')"
rs.Open SQL, conn, 1, 1
If Not rs.EOF Then
rs.Close
rs.Open SQL, conn, 1, 3
rs("WH_shuliang") = rs("WH_shuliang") + (Text5.Text)
rs("WH_zongjia") = rs("WH_zongjia") + (Text6.Text)
rs("WH_beizhu") = rs("WH_beizhu")
rs.Update
MsgBox ("商品入库成功!")
Call Module1.closedatabase
Unload Me
Else
这里和上面代码差不多省略了
End If
这是一段能够运行成功的添加记录的代码,我的代码就是用这段来改的,因为我不想要判定存在不存在,统统添加新记录
|