Question

大家好我是一名php开发人员，但自从在组织工作以来，我就开始了vb6项目的工作。

该软件很老了，至少说10年，我根本不知道vb6。但我仍然设法解决一些错误，但现在我坚持，我没有得到任何解决方案。编译项目时出现此错误，突出显示此代码。

选择.Panels(6) =。

Public Sub StatusBarDateTime()
''    FrmMain.Stb1.Panels(5) = Time
    FrmMain.Stb1.Panels(6) = Format(Date, "dd-mmm-yyyy")
End Sub

当我在代码上删除此行时，它会显示另一个错误

Compile error:
Sub or Function not defined

突出显示这行代码

Private Sub MDIForm_Load()
StatusBarDateTime
End Sub

我认为它正在声明这个功能。所以我也删除了这个功能。

现在在我编译againg后删除了这个，我得到了这个错误说

Run time error'481'
Invalid picture

当我点击调试时，它会显示这行代码

Private Sub Form_Load()
FrmMain.Show
Dim strUser As String
Call Center_Align(FrmLogin)
OpenConnection
strUser = "select * from TMUser order by login_name"
rsUser.Open strUser, conpgdhm, adOpenKeyset, adLockOptimistic
Set CmbUserID = rsUser
CmbUserID = "login_name"
CmbUserID = "login_id"
End Sub

高度Set CmbUserID = rsUser行。现在我一无所获。

我不知道在解决这个问题后我可以得到多少错误，但这是下一部分。首先，我必须解决这个问题。我不知道如何解决这个问题。

我现在正在敲头两天，如果有人可以帮我请。

提前致谢。

Answer 1

那些很有帮助...... 它停在那里的原因是因为你试图将一个datareader（或任何对象类型rsUser）分配为字符串或int类型的值（CmbUserID）你试图把一整个矩形装成一个圆形的整体。这仅参考您的最新错误。基于我在这里看到的，你缺乏VB6的经验，没有一些帮助就继续。我建议一位顾问。希望这会有所帮助。

编译错误：在vb6中找不到方法或数据成员

1 个答案: