Question

我试图在vb中使用一个main函数来告诉编译器表单将会加载到sql表中但是在我创建的类vb中出现了一些错误：

Deceleration expected

msgbox和form1.show上的错误为statemnet cannot appear outside of method body multiline/lambada 以及if if statment：Private Sub login_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim da As New DataSet1TableAdapters.UserTableAdapter dtb.Columns.Add("UserID", GetType(Integer)) da.FillBy(dtb) Dim i As Integer MsgBox(dtb.Rows.Count) If i = 1 Then Form1.Show() End If End Sub

编辑：

da.FillBy(dtb)

代码是这样的，但是当编译转到行{{1}}时，它会加载当前登录表单，而不是转到if语句

Answer 1

您无法运行if语句或在sub之外显示消息框。把它全部放在处理Form1.Load()的子集中，你应该好好去。

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    Dim da As New DataSet1TableAdapters.UserTableAdapter
    dtb.Columns.Add("UserID", GetType(Integer))
    da.FillBy(dtb)
    Dim i As Integer
    MsgBox(dtb.Rows.Count)
    If i = 1 Then
        Form1.Show()
    End If
End Sub

在vb.net中使用Main函数

1 个答案: