主题：关于数据转换

Dim 菜单名 As String = Args(0)

Dim 结果 As Boolean

If Vars("userid") IsNot Nothing Then

    Dim dr As DataRow = DataTables("菜单表").SQLFind("菜单名称 = '" & 菜单名 & "' And 工号 Like '%" & Vars("userid") & "%'")

MessageBox.Show(菜单名 & Vars("userid") & Vars("username"))

    If dr IsNot Nothing Then

        结果 = 1

        Vars("动作") = 菜单名

    Else

        结果 = 0

    End If

End If

Return 结果

If Functions.Execute("权限判断",e.SplitButton.Name) = 0 Then

    MainTable = Tables("主页")

    MessageBox.Show("权限未开放","错误",MessageBoxButtons.OK,MessageBoxIcon.Error)

Else

    BaseMainForm.Text = "KTS物料管理系统 - 【预算浏览】"

    Functions.Execute("浏览数据表","预算表")    

End If