Foxtable(狐表)用户栏目专家坐堂 → 帮忙看一下是什么问题、谢谢


  共有6840人关注过本帖树形打印复制链接

主题:帮忙看一下是什么问题、谢谢

帅哥哟,离线,有人找我吗?
jinzhengbe
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1062 积分:9781 威望:0 精华:0 注册:2012/3/13 5:23:00
帮忙看一下是什么问题、谢谢  发帖心情 Post By:2013/2/22 22:48:00 [只看该作者]

在关联表 edit里添加新行的时候,总是提示有错误,不知道是哪里有问题。 请各位高手指点一下了@@@
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目12.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
xuezxz
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:423 积分:4473 威望:0 精华:0 注册:2012/3/7 23:19:00
  发帖心情 Post By:2013/2/23 14:12:00 [只看该作者]

你直接把edit里要读取父表内容的列改成表达式列不就好了吗,还省的写代码


 回到顶部
帅哥哟,离线,有人找我吗?
lin_hailun
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By: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

 回到顶部