Foxtable(狐表)用户栏目专家坐堂 → [求助]如何将表中某列的内容自动填写


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

主题:[求助]如何将表中某列的内容自动填写

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/15 14:24:00 [显示全部帖子]


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/11/28 18:27:00 [显示全部帖子]

把你的全部代码拷贝一次,把表名修改一下即可;或者贴出你现在写的代码。

 

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/3 23:11:00 [显示全部帖子]

Select Case e.DataCol.Name
    Case "合同状态" '如果是合同状态列的内容变动
        If e.NewValue = "已结束" Then '而且变动后的值是"已结束"
            e.DataRow.Locked = True'那么锁定此行
        End If
    Case "合同单号"
        Dim cwbb As DataRow = DataTables("财务报表_会计").Find("合同单号 = '" & e.OldValue & "'")
        If cwbb Is Nothing Then
            cwbb = DataTables("财务报表_会计").AddNew()
            cwbb("合同单号") = e.DataRow("合同单号")
            cwbb("业务员") = e.DataRow("业务员")
            cwbb("合同金额") = e.DataRow("合同金额")
        Else
            cwbb("合同单号") = e.DataRow("合同单号")
        End If

        cwbb = DataTables("报告管理_客服员").Find("合同单号 = '" & e.OldValue & "'")
        If cwbb Is Nothing Then
            cwbb = DataTables("报告管理_客服员").AddNew()
            cwbb("合同单号") = e.DataRow("合同单号")
            cwbb("报告版式") = e.DataRow("报告版式")
        Else
            cwbb("合同单号") = e.DataRow("合同单号")
        End If

    Case "业务员" , "合同金额"
        Dim cwbb As DataRow = DataTables("财务报表_会计").Find("合同单号 = '" & e.DataRow("合同单号") & "'")
        If cwbb IsNot Nothing Then
            cwbb(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
End Select


 回到顶部