采购管理信息系统VB
PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=13ThenIfNotIsNumeric(Text1.Text)ThenMsgBox"输入不符合条件,采购员编号必须为数字"ElseAdodc1.RecordSource="select*fromT_cgyzlwhere采购员编号='"+Text1.Text+"'"Adodc1.RefreshIfAdodc1.Recordset.R
用户评论
woaiyanglili 2019-05-28 17:51:26
有的窗体看不了。运行起来总说有错。不知道是不是我的软件的问题。
青葱小顽童 2019-05-28 17:51:26
貌似打开工程1的时候会出错
qq_69506 2019-05-28 17:51:26
额,我下载的也打不开,可能文件路径改了,但还是可以一个一个的浏览窗体,还算不错
sd41796 2019-05-28 17:51:26
刚下载了个VB6.0,貌似打开工程1的时候会出错。。。求解