1.运行时错误91对象变量或者with块变量未设置求帮忙搞定这个程序 爱问
Sub 查找_Click() Dim rst1 As Recordset Dim temp As String strsearchname = InputBox（"输入要查找的工号"， "查找输入"） temp = "select * from 员工信息表 where 工号 like '" & strsearchname & "'" Set rst1 = db。
OpenRecordset(temp) '估计db没有对象引用，可能在别的模块中已经定义了，把当前模块中的定义去掉看看。 If Not rst1。
EOF Then '有记录话，Eof应该为假 MsgBox "找到了！" '不要放在循环中， Do until rst1。 EOF 工号。
Value = rst1（"工号"） '这些好像是重复写到同一个变量当中，循环不多余的吗 姓名。Value = rst1（"姓名"） 岗位。
Value = rst1（"岗位"） 薪金。 Value = rst1（"薪金"） 工龄。
Value = rst1（"工龄"） 附注。Value = rst1（"附注"） rst1。
MoveNext Loop Else MsgBox "没找到" End If rst1。 Close End Sub。
2.金蝶k3成长版,运行是错误91 未设置对象变量或With block
客户端的机器名称及登录用户都必须用英文。
2、在服务器上的计算机管理中，设置登录用户，也是英文的，并设置登录密码（可根据需要设置）。
3、客户端登录的计算机用户，必须使用在服务器上登记的用户，登录密码也必须与服务器上的一致。
4、当然了，网络测试必须是要通的，并且客户端的远程组件配置能正常注册。
6.检查com+应用程序注册失败（运行中输入命令“dcomcnfg”，“组件服务”——“计算机”——“我的电脑”——“com+应用程序”， 看这个下面是不是什么东西都没有的，我的当时没有），解决办法比较简单，“cmd”命令打开命令行窗口，输入“msdtc -uninstall”，然后再输入“msdtc -install”（大致就是先下载了，再安装）。了。
