以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]用目录树输入数据无法保存  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=4930)
--  作者：huaneng
--  发布时间：2009/11/9 20:31:00
--  [求助]用目录树输入数据无法保存


在出货明细表,品牌列选用目录树输入,产品名称,单价列,,,,输入都正常,但保存退出后再次打开,产品名称,单价列数据是空的,谁能帮我看看哪里出了问题?
[此贴子已经被作者于2009-11-9 23:12:02编辑过]
--  作者：czy
--  发布时间：2009/11/9 20:41:00
--  
产品名称和单价列是表达式列，是不能保存数据的。
将其改成数据列即可。
--  作者：狐狸爸爸
--  发布时间：2009/11/9 20:45:00
--  
请看帮助：应用篇- 表达式 - 数据无法保存。
这一节介绍的，就是你遇到的问题。
--  作者：huaneng
--  发布时间：2009/11/9 23:12:00
--  
感谢两位管理员,我刚学习狐表
--  作者：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()

这段代码如果入库明细也要引用,应该如何加入?
--  作者：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()
--  作者：huaneng
--  发布时间：2009/11/10 0:36:00
--  
感谢超版,菜菜地问一下,CurrentTable.Current  在这代码中怎么理解?
--  作者：czy
--  发布时间：2009/11/10 0:42:00
--  
CurrentTable；当前表，当前表有可以是主表，也可以是关联表，通俗点说就是焦点所在表。
Current，当前行，也就是焦点所在行。
--  作者：huaneng
--  发布时间：2009/11/10 0:54:00
--  


明白了,感谢超版