[求助]更改一下订单表的客户名，明细表的客户名会重新新增一行， - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]更改一下订单表的客户名，明细表的客户名会重新新增一行，

共有4288人关注过本帖树形打印复制链接主题：[求助]更改一下订单表的客户名，明细表的客户名会重新新增一行，

xianxin2010

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：282 积分：2421 威望：0 精华：0 注册：2013/6/6 13:14:00

[求助]更改一下订单表的客户名，明细表的客户名会重新新增一行， 发帖心情

Post By：2014/1/27 12:07:00 [只看该作者]

是搜到这个帖子，http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=34628

模仿做的，功能都实现了，但是后续只要更改一下订单表的客户名，明细表的客户名会重新新增一行，不是在原有的单元格内更改的，

在订单表的 DataColChanged 增加了以下代码

If e.DataCol.Name = "编号" OrElse e.DataCol.Name = "客户名" Then
    Dim dr As DataRow = DataTables("明细表").AddNew()
    If e.DataRow.IsNull("编号") = False AndAlso e.DataRow.IsNull("客户名") = False Then
        dr("编号") = e.DataRow("编号")
        dr("客户名") = e.DataRow("客户名")
    Else
        dr("编号") = Nothing
        dr("客户名") = Nothing
    End If
End If

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目5.table

[此贴子已经被作者于2014-1-27 12:07:41编辑过]

sunsenfeng

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：599 积分：4188 威望：0 精华：0 注册：2011/12/21 11:25:00

Post By：2014/1/27 12:18:00 [只看该作者]

Dim dr As DataRow = DataTables("明细表").AddNew()

就是这一句追加的新行

如果你在更改时不想做社么，那么删除掉所有代码即可

xianxin2010

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：282 积分：2421 威望：0 精华：0 注册：2013/6/6 13:14:00

Post By：2014/1/27 12:33:00 [只看该作者]

以下是引用sunsenfeng在2014-1-27 12:18:00的发言：
Dim dr As DataRow = DataTables("明细表").AddNew()

就是这一句追加的新行

如果你在更改时不想做社么，那么删除掉所有代码即可

删除掉所有代码，那原来的功能就没有了，在订单表输入编号和客户名，自动在明细表生成编号和客户名的功能就没有了得不偿失了

lsy

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2014/1/27 12:49:00 [只看该作者]

If e.DataCol.Name = "编号" OrElse e.DataCol.Name = "客户名" Then
    If e.DataRow.RowState = DataRowState.Added Then
        Dim dr As DataRow = DataTables("明细表").AddNew()
        If e.DataRow.IsNull("编号") = False AndAlso e.DataRow.IsNull("客户名") = False Then
            dr("编号") = e.DataRow("编号")
            dr("客户名") = e.DataRow("客户名")
        Else
            dr("编号") = Nothing
            dr("客户名") = Nothing
        End If
    End If
End If

xianxin2010

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：282 积分：2421 威望：0 精华：0 注册：2013/6/6 13:14:00

Post By：2014/1/27 13:14:00 [只看该作者]

以下是引用lsy在2014-1-27 12:49:00的发言：
If e.DataCol.Name = "编号" OrElse e.DataCol.Name = "客户名" Then
    If e.DataRow.RowState = DataRowState.Added Then
        Dim dr As DataRow = DataTables("明细表").AddNew()
        If e.DataRow.IsNull("编号") = False AndAlso e.DataRow.IsNull("客户名") = False Then
            dr("编号") = e.DataRow("编号")
            dr("客户名") = e.DataRow("客户名")
        Else
            dr("编号") = Nothing
            dr("客户名") = Nothing
        End If
    End If
End If

再次感谢

下一主题 >> << 上一主题

主题：[求助]更改一下订单表的客户名，明细表的客户名会重新新增一行，