Sub Main()
  编译时弹出错误对话框:编译错误:未找到方法或数据成员。其中下面的SUB Main显示黄色。 还有flogin.ok中的.OK会以蓝底显示 
  是不是数据库没链接好,我是VB新手,请各位指教,谢谢!   
Sub Main() 
Dim fLogin As New frmLogin
'显示登录窗体
    fLogin.Show vbModal
'判断是否授权用户
    If Not fLogin.ok  Then
        'login failed so exit app
        End
    End If
    Unload fLogin
'判断是将进入系统
    Set fMainForm = New FrmMain
    fMainForm.Show
End Sub
Public username As String

解决方案 »

  1.   

    代码貌似不全~!Public   username   As   String 
    public应该声明在模块中
      

  2.   

    这里所指的"未找到方法或数据成员"就是SUB MAIN中的 fLogin.ok的.OK.应该在缺少声明.看来这个程序不是你自己编的吧?你找一找flogin都在什么地方出现,看看是怎么声明的及怎么赋值的!
      

  3.   

    应该是程序没有找到:frmLogin 
      

  4.   

    应该是程序没有找到:frmLogin  
      

  5.   

    fLogin.ok 
    也就是ok是frmLogin 中的变量。如果要调用它,那么必须在frmLogin 中声明为public。