共11 条记录, 每页显示 10 条, 页签: [1] [2]

[浏览完整版]

标题：[求助]启动项目时，能否不显示“正在加载数据表...”？

1楼

蓝才文百 发表于：2017/2/27 10:53:00

比如我数据源是远程的，数据表一般用户不必知道，许多都是英文表名，显示这些信息没用。能否不显示

正在加载数据表 a,b,c...

这个提示？

如何隐藏这个提示？谢谢！

2楼

狐狸爸爸 发表于：2017/2/27 11:01:00

项目属性有设置，可以自定义提示内容。

3楼

有点色 发表于：2017/2/27 11:15:00

菜单->项目属性->加载提示。

4楼

蓝才文百 发表于：2017/2/27 11:19:00

好的，谢谢狐爸和有点色版主！

5楼

ycwk 发表于：2024/1/27 10:56:00

能否不要一启动就加载表，而等到进到某个窗口的时候再加载？

6楼

有点蓝 发表于：2024/1/27 11:06:00

可以到下面2个事件控制

对于内部表，请参考事件：BeforeLoadInnerTable
对于外部表，请参考事件：BeforeLoadOuterTable

7楼

ycwk 发表于：2024/1/27 11:37:00

If DataTables.Contains("电话记录") = False Then '如果电话记录表没有加载

DataTables.Load("电话记录") '加载电话记录表

End If

Forms("win_电话记录窗口").open()

MainTable=Tables("电话记录")

我在打开窗口之前执行了上面这段代码，但是进到窗口以后，table空空如也，是啥问题？

8楼

有点蓝 发表于：2024/1/27 11:57:00

没加载数据吧，项目事件代码怎么用的？

9楼

ycwk 发表于：2024/1/27 12:15:00

Case "电话记录"

MessageBox.Show("0")

If DataTables.Contains("电话记录") = False Then '如果电话记录表没有加载

MessageBox.Show("1")

DataTables.Load("电话记录") '加载电话记录表

End If

MessageBox.Show("设置datasource前")

Tables("电话记录").DataSource = DataTables("电话记录")

MessageBox.Show("设置datasource后")

Forms("win_电话记录窗口").open()

MessageBox.Show("设置maintable前")

MainTable = Tables("电话记录")

MessageBox.Show("设置maintable后")

在beforeloadoutertable中弹出"打开项目不加载表"消息，我在打开窗口前执行上面这段代码，弹出0和1后（并没有弹出后面的message），为什么又执行了一次beforeloadoutertable(也就是弹出了”打开项目不加载表“消息)，我导出代码后，查看并没有什么地方引用了beforeloadoutertable，取消beforeloadoutertable里面的代码后，一切恢复正常，请问是怎么回事。

beforloadoutertable代码如下：

If e.DataTableName = "电话记录" Then

MessageBox.Show("打开项目不加载表")

e.Cancel = True '打开项目的时候不加载此表

End If

[此贴子已经被作者于2024/1/27 12:26:08编辑过]

10楼

ycwk 发表于：2024/1/27 12:33:00

难不成我在打开窗口前执行 DataTables.Load("电话记录") 会再一次触发 beforeloadoutertable 事件？那我该怎么在后面把表加载进来？

共11 条记录, 每页显示 10 条, 页签: [1] [2]