合同管理系统，好久没来了露个脸

xq10555 · 发表于 2011-3-2 21:33

学习了，非常感谢

qius888 · 发表于 2011-3-3 07:44

谢谢分享，学习中

ztsjjzcyq · 发表于 2011-3-3 09:04

学习一下!啦

dahuolongx · 发表于 2011-3-3 10:53

下载看看下载看看

prine028 · 发表于 2011-3-3 19:24

美女的东西啊。。。

yudh · 发表于 2011-3-4 15:11

学习学习。谢谢分享！

woxindayang · 发表于 2011-3-4 17:13

学习下
您辛苦了

woxindayang · 发表于 2011-3-4 17:38

又缺陷的哦。。。

Private Sub CommandButton11_Click()
Dim myld As String

myld = InputBox("请输入合同号：", "合同查询")
If Len(Trim(myld)) = 0 Then
MsgBox "没有输入合同号！", vbCritical, "警告"
Exit Sub
End If
rs.MoveFirst--------------------------------这表示纠结
For i = 1 To rs.RecordCount
If rs.Fields("合同号") = myld Then
Call 显示合同基本信息
Call 显示合同收费情况
Exit Sub
Else
rs.MoveNext
End If
Next
MsgBox "没有改合同号信息"

esacc · 发表于 2011-3-4 21:36

有语法错误，用不了哦

xmyjk · 发表于 2011-3-4 23:25

呵呵，实用的系统，收藏个，估计以后用得到。

		自动登录	找回密码
密码			免费注册

[原创] 合同管理系统，好久没来了露个脸

回复 1楼 cathylu1983 的帖子