大侠怎么赋值给这text14让它能显示出来

tt96tt 发布于 2013-08-29 13:57， 532 次点击

   adoRs.Open "select * from SuKiMaterialStorage where 物料编号='" & Text1.Text & "'"
   Text14.Text = adoRs("数量")


If CCur(Text7.Text) > CCur(Text14.Text) Then
    MsgBox "出仓数量大于实际库存数量,系统审核不通过,请重新输入!", 48 + vbOKOnly, "提示"
     Text7.Text = 0
   end sub
   End If

我不会赋值给text14,让text1有编号是，text14也会显示这编号的库存数量~~

5 回复

tonoy2013-08-30 07:50

那就
Text14.Text=Text1.Text或者Cstr(Text14.text)

白鹤9372013-08-30 10:02

text14.text=adors.feilds("数量")

jxyga1112013-08-31 09:12

先得出数量，
adoRs.Open "select adoRs("数量") from SuKiMaterialStorage where 物料编号='" & Text1.Text & "'"
然后再写个：
adoRs1.Open "select * from SuKiMaterialStorage where 物料编号='" & Text1.Text & "'"
Text14.Text = adoRs("数量")

zhnzz42292013-09-01 11:18

问题写的具体一点。

zhnzz42292013-09-01 11:20

把代码用网页自带的"程序代码"显示出来