如何从字段中获取内容

Question

我对Base完全陌生。我有不同的表单，但在其中一个名为F_STRUCT的表单中，我试图制作一个宏，允许用户在选择邮政编码时自动填充另一个字段。

所以数据库看起来是这样的。

ID_ZIP  ZIP  CITY
1      97425 Les Avirons
2      82289 Toto

在我的表格中，我有一个选择，可以选择邮政编码。它的标签和名称是ZipCode。

所以我真的不知道在哪里可以找到所有方法和chill方法的API参考，我从互联网上找到了例子。

我试过这个

Sub getZip
Dim Doc As Object
Dim DrawPage As Object
Dim Form As Object

Doc = StarDesktop.CurrentComponent
DrawPage = Doc.DrawPage
Form = DrawPage.Forms.GetByIndex(0)
Toto = Form.GetByName("ZipCode")
Print "hey"
End Sub

但它在Toto = Form.GetByName("ZipCode")行上返回一个错误。

Answer 1

代码是有效的，所以问题一定是如何创建窗体或控件。按照以下说明设置正确的示例：

1. 在设计视图中创建窗体
2. 使用列表框工具(这就是你所说的"选择"的意思吗？(并创建一个控件
3. 如果向导弹出，则取消向导
4. 右键单击控件并选择控件属性(而不是名称，这将修改形状名称而不是控件的名称(
5. 将名称设置为"；ZipCode"；(无引号(
6. 保存并关闭表单
7. 打开表单。在该表单的窗口(CurrentComponent(中，转到工具->宏->运行宏

Base的文档链接列表位于https://ask.libreoffice.org/en/question/80972/to-learn-libreoffice-base-are-there-introductions-or-tutorials/?answer=80973#post-id-80973。