VB编辑代码中显示缺少语句结束
jiguan = Application . WorksheetFunction . _
Lookup (TT, Sheet . Range ("K4:K37") ,
Sheet1 . Range ("L4:L37"))
求大佬被帮忙解答!!
'【不要把Sub Main()过程里面当作是窗体的运算区域】
'Sub Main() 过程一般功能为:接收外部Command 参数,
'检查程序工作环境、检查必备文件是否存在、
'检查数据库是否可用、设置是否允许多次启动,指定启动窗体...。
'在第一显示的窗体Show 显示之后,应立即结束本过程,
'尽量不要再加入其它运算、及判断代码
'其他检测、运算、判断代码写到第一显示的窗体里面。
'如果你的工程只开启一个主窗体,那么下列一行代码为多余
' Public fMainForm As frmMain '程序主窗体
'如果你的登陆密码窗体只使用一个窗体,那么下列一行代码为多余
' Dim fLogin As New frmLogin
'数据库连接字符串赋值,尽量与数据库连接代码写在一起,不要让一个
'完整的数据库连接代码,经过1-3个过程拼凑赋值,这样除错时会增加查找过程代码的麻烦。
Option Explicit
'这个PWD变量如果只用于frmLogin窗体的检测密码,那么在此设置为全局变量不是很好..。
Public PWD As String '用户密码
Public Level As Boolean '用户级别
Public CONN As String '数据库连接字符串
Public flagEdit As Boolean
Sub Main() '工程必须在属性设置 Sub Main为启动对象
If App.PrevInstance Then End '设置不让程序重复启动
frmLogin.Show
'窗体Show之后,代码流程还会返回本过程执行一次End Sub
'这时候才算是本过程结束。所以show之后尽量不要有其它代码
End Sub
'以下为第一显示窗体frmLogin的示例
Option Explicit
Private Sub Command1_Click()
PWD = Text1.Text
If PWD = "123" Then
frmMain.Show'直接开启你的主窗体即可
Unload Me
Else
End
End If
End Sub
'当你设计一个窗体,必须要连续开启2-N个相同窗体显示
'才需要用到Set ??= New ??或 Dim ?? as New ??
'而且使用本方法之后,不建议直接使用 .Show 方法
'否则你开启了3个窗体,操作时没能判断那个窗体的开启顺序
'给个例子,于窗体frmLogin添加Command2控件
Private Sub Command2_Click()
Dim i As Integer
Dim NewForm(0 To 2) As New frmMain
For i = 0 To 2
Load NewForm(i)
NewForm(i).Caption = "第" & (i + 1) & "主个窗体"
NewForm(i).Left = i * 300
NewForm(i).Top = i * 300
NewForm(i).Visible = True
Next i
End Sub