何时不在 VFP 中使用 init

金卡数据库现在是金卡。

init 事件。

适用于： 在创建对象时发生。

语法。 procedure

lparameters

param1, param2,..

参数。 param1,param2...

参数是可选的。 但是，如果传递参数，则必须使用 lparameters 或 parameters 语句列出每个参数，否则。

Visual FoxPro 生成错误消息。

说明。 对于表单集和其他容器对象，容器中对象的 init 事件位于容器的 init 中

事件，因此容器的 init 事件可以访问容器中的对象。 容器中对象的 init 事件的发生顺序与添加到容器的顺序相同。

如果不创建控件，则可以这样做。

init 事件f.），则不会触发 destroy 事件。例如，以下 ** 在发票中

如果该表不存在，则返回“false”（.）。f.)：

procedure init

if not

file("")

error initialization failed: file not found

return .f.

else use invoice in 0 again

select()

endifendproc

以上是官方信息，也就是说init是一个表单或者控件，当它运行时，init中的**会被运行，当表单或控件被释放并再次运行时，init中的**会再次运行，你可以在init中放一些初始化设置来保证程序的运行。 这就是它的理解方式。

窗体的 init 是一个窗体初始化事件，此事件仅在窗体控件的 init 之后出现。

通常调用菜单或设置窗体控件的属性可以在窗体 init 事件中设置。

在创建对象时发生。

就我个人而言，我认为最好在其中放置一些空格初始化。

调用的函数和方法应放在括号中，否则它们将被视为属性。

去bm这里bm是没有定义的，肯定凯脊柱的损失会促使凝视之神找到变量bm，bm作为一个变量，在使用野生空间之前需要定义。 例如，BM=1

set exact on

set talk off

if not used ("出站信息"& 这个没有成对的 endif

使用出站信息。 dbf in 0

set exact on &&&&此行是多余的，并且已经设置好了。

set talk off &&&此行是多余的，已经设置好了。

if !used ('出站信息'& 也许在这一行之前，你应该插入一个 endif，如果不使用 （.）"出站信息")

使用出站信息。 2 &&& 中的 dbf 应该为 0（0 表示在新的空工作区中打开）。

endifuse 出站信息。 dbf &&&&此行是多余的，之前已经用过了，问题应该出在这一行，注意此行。

""""计算 maxbh（出站数）到 maxbh &>在数据表中查找序列号最高的记录。

ckbh=val(right(maxbh,3))

if ckbh=0 then

ckbh='s00001'

elsehpbh='s'+padl(alltrim(str(ckbh+1)),5,'0'） & 生成一个自动编号。

endif* 你自己修改，思路清晰，就会完成。

只要你的 **t9304 与此表单位于同一目录中，这样编写的命令应该没有问题。

但要将 combo1 控件的 rowsourcetpye 属性设置为 3-sql description。

或者在 combo1 中添加 init 事件的第一行：

单击时单击。

初始化 init 时发生。

负荷。

不同的进程由不同的事件触发。