Rss & SiteMap

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

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

标题:[求助]用目录树输入数据无法保存

1楼
huaneng 发表于:2009/11/9 20:31:00


在出货明细表,品牌列选用目录树输入,产品名称,单价列,,,,输入都正常,但保存退出后再次打开,产品名称,单价列数据是空的,谁能帮我看看哪里出了问题?
[此贴子已经被作者于2009-11-9 23:12:02编辑过]
2楼
czy 发表于:2009/11/9 20:41:00
产品名称和单价列是表达式列,是不能保存数据的。
将其改成数据列即可。
3楼
狐狸爸爸 发表于:2009/11/9 20:45:00
请看帮助:应用篇- 表达式 - 数据无法保存。
这一节介绍的,就是你遇到的问题。
4楼
huaneng 发表于:2009/11/9 23:12:00
感谢两位管理员,我刚学习狐表
5楼
huaneng 发表于:2009/11/9 23:54:00
If e.Node.Level = 0 Then  
    Return
End If
Dim Vals() As String = e.Node.FullPath.Split("\")
Dim Filter As String = "[品牌] = '" & Vals(0) & "' And [货号] = '" & Vals(1) & "'"
Dim dr As DataRow = DataTables("产品目录").Find(Filter)
Dim r As Row = Tables("出库明细表").Current
r("品牌") = dr("品牌")
r("货号") = dr("货号")
r("产品名称") = dr("产品名称")
r("单价") = dr("单价")
e.Form.Close()

这段代码如果入库明细也要引用,应该如何加入?
6楼
czy 发表于:2009/11/10 0:12:00

If e.Node.Level = 0 Then 
    Return
End If
Dim Vals() As String = e.Node.FullPath.Split("\")
Dim Filter As String = "[品牌] = '" & Vals(0) & "' And [货号] = '" & Vals(1) & "'"
Dim dr As DataRow = DataTables("产品目录").Find(Filter)
Dim r As Row = CurrentTable.Current
r("品牌") = dr("品牌")
r("货号") = dr("货号")
r("产品名称") = dr("产品名称")
r("单价") = dr("单价")
e.Form.Close()

7楼
huaneng 发表于:2009/11/10 0:36:00
感谢超版,菜菜地问一下,CurrentTable.Current  在这代码中怎么理解?
8楼
czy 发表于:2009/11/10 0:42:00
CurrentTable;当前表,当前表有可以是主表,也可以是关联表,通俗点说就是焦点所在表。
Current,当前行,也就是焦点所在行。
9楼
huaneng 发表于:2009/11/10 0:54:00


明白了,感谢超版
共9 条记录, 每页显示 10 条, 页签: [1]

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

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