- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 帮忙看一下是什么问题、谢谢 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=28935)
-- 发布时间：2013/2/22 22:48:00
-- 帮忙看一下是什么问题、谢谢
在关联表 edit里添加新行的时候，总是提示有错误，不知道是哪里有问题。 请各位高手指点一下了@@@
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目12.foxdb |
-- 发布时间：2013/2/23 14:12:00
--
你直接把edit里要读取父表内容的列改成表达式列不就好了吗，还省的写代码
-- 发布时间：2013/2/23 14:20:00
--
方法一，用表达式。
http://www.foxtable.com/help/topics/0106.htm
方法二，修改datacolchanged的代码。
Select Case e.DataCol.Name
Case "详情ID"
Dim dr As DataRow
dr = DataTables("订单详情").Find("ID = " & "\'" & e.DataRow("详情ID") & "\'" )
If dr IsNot Nothing \'如果找到, 则设置各列内容
e.DataRow("商品名")= dr("商品名称")
e.DataRow("单价")= dr("单价")
e.DataRow("订单号")=dr("caseno")
e.DataRow("颜色")=dr("color")
e.DataRow("备注")=dr("productRemarks")
Else
End If
Case "状态"
Select Case e.DataRow("状态")
Case 1
e.DataRow("数量")=0
Case 2
e.DataRow("数量")=0
Case Else
e.DataRow("数量")=e.DataRow("处理数量")
End Select
End Select