不能写入全局代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 不能写入全局代码

共有8048人关注过本帖树形打印复制链接主题：不能写入全局代码

liguichuan

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：362 积分：3190 威望：0 精华：1 注册：2011/4/20 1:40:00

Post By：2012/7/21 16:08:00 [显示全部帖子]

Public Function 数据源()
        '-----定义语句
        Dim cmd2 As New SQLCommand
        '-----设置数据源
        cmd2.C
        '设置语句
        cmd2.CommandText = "Select GetDate()" '获取服务器时间
         cmd2.ExecuteScalar '返回服务器时间
End Function

您好，我试一下，如果你不定义任何的函数或是过程，你直接写是无法编译的，但是你写在函数或过程里就可以了，不信你添加上面代码中的红色部分。

liguichuan

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：362 积分：3190 威望：0 精华：1 注册：2011/4/20 1:40:00

Post By：2012/7/21 16:32:00 [显示全部帖子]

不懂你为什么这样写

[此贴子已经被作者于2012-7-21 16:34:47编辑过]

liguichuan

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：362 积分：3190 威望：0 精华：1 注册：2011/4/20 1:40:00

Post By：2012/7/21 16:37:00 [显示全部帖子]

以下是引用lihe60在2012-7-21 16:34:00的发言：

Public cmd As new sqlcommand
Public ld As Date
Public s As String
Public Function 数据源()
'-----定义语句
'Dim cmd2 As New SQLCommand
'-----设置数据源
cmd.C
'设置语句
cmd.CommandText = "Select GetDate()" '获取服务器时间
ld= cmd.ExecuteScalar '返回服务器时间
ld=#12/31/2012#
s="12"
End Function

在命令窗口执行messagebox.show(s)，说s没有定义。

那你不在命令窗口执行咯，你在某个按钮的事件下面执行一下看看，命令窗口有可能无法调用全局的变量也说不定。它好像只是一个测试窗口。

下一主题 >> << 上一主题

主题：不能写入全局代码