Foxtable(狐表)用户栏目专家坐堂 → 自动增加行问题


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

主题:自动增加行问题

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


加好友 发短信
等级:超级版主 帖子:106716 积分:542775 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/9 16:37:00 [显示全部帖子]

Select Case e.DataCol.Name
    Case "生产令号","协作内容","合同类别","合同性质_一单一招","合同性质_年度合同"
……

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


加好友 发短信
等级:超级版主 帖子:106716 积分:542775 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/10 9:06:00 [显示全部帖子]

“生产令号”是表达式列?检查项目事件,比如MainTableChanged

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


加好友 发短信
等级:超级版主 帖子:106716 积分:542775 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/10 11:01:00 [显示全部帖子]

"外协作合同台账"的datacolchanged事件全部发上来看看

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


加好友 发短信
等级:超级版主 帖子:106716 积分:542775 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/10 13:56:00 [显示全部帖子]

6楼diamond会触发协作合同台账这些代码。然后会从"外协工作联系单"取数据覆盖"生产令号",应该是"外协工作联系单"这个编号的"生产令号"没有数据吧。
If e.DataCol.Name = "协作合同编号" Then
    If e.NewValue Is Nothing Then
        e.DataRow("生产令号") = Nothing
        e.DataRow("合同类别") = Nothing
        e.DataRow("协作内容") = Nothing
        Dim dr4 As DataRow
        dr4 = DataTables("外协工作联系单").Find("[工作联系单编号] = '" & e.NewValue & "'")
        If dr4 IsNot Nothing
            e.DataRow("生产令号") = dr4("生产令号")
            e.DataRow("合同类别") = dr4("合同类别")
            e.DataRow("协作内容") = dr4("协作内容")
        End If
    End If
End If

 回到顶部