Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共14 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

标题:[求助]如何即时更新 数据表字典 和 启用输入助手的列表项目 内容啊

1楼
天下无光 发表于:2011/5/10 11:07:00

如题。

 

现在要关闭后重新打开软件数据才会更新,要如何弄呢?求助!!

2楼
狐狸爸爸 发表于:2011/5/10 11:09:00

可以动态设置啊:

 

http://help.foxtable.com/topics/1836.htm

 

 

3楼
天下无光 发表于:2011/5/10 13:16:00

数据字典那里也搞个 显示代码 就好了!!图片点击可在新窗口打开查看

4楼
天下无光 发表于:2011/5/10 14:01:00
狐爸!启用输入助手的列表项目 如何动态设置啊!
5楼
狐狸爸爸 发表于:2011/5/10 14:25:00

看看这个:

 

http://help.foxtable.com/topics/1457.htm

 

6楼
天下无光 发表于:2011/5/10 16:58:00

还是不行!!!

 

例程是这样的

If MainTable.Name = "订单" Then '如果选择的主表是订单表
Tables("订单").Cols("客户").Combolist = DataTables("客户").GetComboListString("公司名称")
End
If

 

但我要的是子表

例如:

If MainTable.Name = "订单.订单明细" Then
Tables("订单.订单明细").Cols("产品编号").Combolist = DataTables("产品").GetComboListString("产品编号")
End
If

好像上述代码不行,求救!!

另外触发条件 例程是如果选择的主表是订单表,我的例子的触发条件是什么好呢?

[此贴子已经被作者于2011-5-10 17:23:14编辑过]
7楼
狐狸爸爸 发表于:2011/5/10 17:26:00

MainTable是主表,关联表用CurrentTableChanged事件:
 
If currentTable.Name = "订单.订单明细" Then
       Tables("订单.订单明细").Cols("产品编号").Combolist = DataTables("产品").GetComboListString("产品编号")
End If
 
主表和活动表:
 
http://help.foxtable.com/topics/0436.htm

 

http://help.foxtable.com/topics/0663.htm

 

http://help.foxtable.com/topics/0664.htm

 

[此贴子已经被作者于2011-5-10 17:27:59编辑过]
8楼
天下无光 发表于:2011/5/10 20:21:00

If CurrentTable.DataTable.Name = "销售订单.销售订单明细" Then 

    CurrentTable.Cols("产品编号").Combolist = DataTables("产品").GetComboListString("产品编号")
End If

 

还是不行,是不是还有错误啊,没有列表啊??求救!!!!!!!!!

Tables("销售订单.销售订单明细" ).Cols("产品编号").Combolist = DataTables("产品").GetComboListString("产品编号")

也没有用!!

9楼
mr725 发表于:2011/5/10 20:56:00

如果这个表是可见的:

Tables("销售订单.销售订单明细" ).focus

CurrentTable.Cols("产品编号").Combolist = DataTables("产品").GetComboListString("产品编号")

10楼
天下无光 发表于:2011/5/10 22:06:00

原来老大也会犯错啊!终于搞定了,原来子表名不能用 父表名.子表名 而是用 子表名 就行了

 

If CurrentTable.DataTable.Name = "销售订单明细" Then
    CurrentTable.Cols("产品编号").Combolist = DataTables("产品").GetComboListString("产品编号")
End If

 

 

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

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02930 s, 2 queries.