以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]请教这里表达式该如何写?(已解决)  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=10128)

--  作者:YDS
--  发布时间:2011/5/22 16:44:00
--  [求助]请教这里表达式该如何写?(已解决)


图片点击可在新窗口打开查看此主题相关图片如下:01.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看

 

请教如何才能在产指表中选择工序号以后在后面的工序产值列自动填入产品表中对应工序产值.

 

初用狐表,请大哥大姐们多多关照!

 

 

 

 

 

 

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar

多谢狐狸爸爸,下次一定记住传数据,测试了你的代码,还是出错!

 

 

已经搞定,参考 http://www.foxtable.com/help/index.html?n=1451.htm

 

在此谢谢各位的帮忙,谢谢lihe60,谢谢狐狸爸爸!图片点击可在新窗口打开查看

[此贴子已经被作者于2011-6-13 8:54:05编辑过]

--  作者:lihe60
--  发布时间:2011/5/22 16:48:00
--  

find

搞不定,看帮助。很简单的。罚你看帮助。


--  作者:YDS
--  发布时间:2011/5/22 16:51:00
--  
以下是引用lihe60在2011-5-22 16:48:00的发言:

find

搞不定,看帮助。很简单的。罚你看帮助。

 

我真的看帮助了啊,没有找到啊!能提示下不?谢了!设置了关联,但是没有办法引用父表数据

[此贴子已经被作者于2011-5-22 16:53:34编辑过]

--  作者:lihe60
--  发布时间:2011/5/22 16:56:00
--  

帮助你读了三遍吗?

若没有,读三遍,其义自现。


--  作者:YDS
--  发布时间:2011/5/22 17:01:00
--  
以下是引用lihe60在2011-5-22 16:56:00的发言:

帮助你读了三遍吗?

若没有,读三遍,其义自现。

 

老大,你就说下怎么弄好不?或者说下在帮助的那个位置?成不?


--  作者:lihe60
--  发布时间:2011/5/22 17:07:00
--  

DataColChanged

事件里写代码

e.datarow("工序产值")=datatables("").compute("sum(e.datacol.name)","")

条件表达式自己写。

我没有测试。


--  作者:狐狸爸爸
--  发布时间:2011/5/22 17:34:00
--  

楼主你提问要养成一个好习惯,除了图片,还应该直接将表传上来,这样大家可以直接帮你设置好代码。

否则人家要帮助你,还得先建两个表,输入测试数据,毕竟每个人写代码都不是一气呵成的,都需要测试的。

没有表测试,我只能大概给你写一下,放在产值表的DataColChanged事件:

 

Select case e.DataCol.Name
    Case "产品名称","工序号"
        Dim dr As DataRow = DataTables("产品").Find("产品名称 = \'" & e.DAtaRow("产品名称") & "\'")
        If dr IsNot Nothing And e.Datarow("工序号") > "" Then
               e.DataRow("工序产值") = dr(e.DataRow("工序号") & "产值")
        End if
End Select

 

另:lihe60回帖不要那么随便,以免给新同学带来困惑。

 

 

[此贴子已经被作者于2011-5-22 17:43:02编辑过]

--  作者:YDS
--  发布时间:2011/5/22 18:01:00
--  
以下是引用狐狸爸爸在2011-5-22 17:34:00的发言:

楼主你提问要养成一个好习惯,除了图片,还应该直接将表传上来,这样大家可以直接帮你设置好代码。

否则人家要帮助你,还得先建两个表,输入测试数据,毕竟每个人写代码都不是一气呵成的,都需要测试的。

没有表测试,我只能大概给你写一下,放在产值表的DataColChanged事件:

 

Select case e.DataCol.Name
    Case "产品名称","工序号"
        Dim dr As DataRow = DataTables("产品").Find("产品名称 = \'" & e.DAtaRow("产品名称") & "\'")
        If dr IsNot Nothing And e.Datarow("工序号") > "" Then
               e.DataRow("工序产值") = dr(e.DataRow("工序号") & "产值")
        End if
End Select

 

另:lihe60回帖不要那么随便,以免给新同学带来困惑。

 

 

谢谢狐狸爸爸,以后一定改了,你的代码我测试了还是错误,请帮忙在查看下!

 

 

[此贴子已经被作者于2011-5-22 17:43:02编辑过]


--  作者:狐狸爸爸
--  发布时间:2011/5/22 18:12:00
--  

呵呵,你传表上来,我才能测试的。

不过要等晚上或明天了,我要出去了。


--  作者:YDS
--  发布时间:2011/5/22 18:19:00
--  
没有关系的,谢谢你哈!