Foxtable(狐表)用户栏目专家坐堂 → 根据某列变化对另一列赋值自动填充问题


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

主题:根据某列变化对另一列赋值自动填充问题

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


加好友 发短信
等级:婴狐 帖子:26 积分:315 威望:0 精华:0 注册:2020/3/11 23:44:00
根据某列变化对另一列赋值自动填充问题  发帖心情 Post By:2021/6/26 1:15:00 [只看该作者]

在表中增加一列“序号”列,当部门列输入内容后“序号”列自动填入指定内容。如果"部门"列的值为 "销售部" ,则“序号”列自动填充为“1”;如果"部门"列的值为 "生产部" ,则“序号”列自动填充为“2”;如果"部门"列的值为 "服务部" ,则“序号”列自动填充为“3”;如果"部门"列的值为 "联络部" ,则“序号”列自动填充为“4”。   但设置代码后发现,仅有在“部门”列输入“销售部”时,“序号”列才可自动填充指定内容,输入其他部时“序号”列均无变化。不知是代码还是设置问题,请大师帮忙看看。  代码如下:

在表的DataColChanged事件输入代码如下:
Select Case e.DataCol.Name
    Case "部门"
        If e.DataRow("部门") = "销售部" 
            e.DataRow("序号") = "1"
 End If
Case "部门"
        If e.DataRow("部门") = "生产部" 
            e.DataRow("序号") = "2"
 End If
Case "部门"
 If e.DataRow("部门") = "服务部" 
            e.DataRow("序号") = "3"
 End If
Case "部门"
 If e.DataRow("部门") = "联络部" 
            e.DataRow("序号") = "4"
 End If
End Select

AfterOpenProject事件输入代码如下:
 
DataTables("表A").DataCols("部门").RaiseDataColChanged()
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:实验代码项目.rar




 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/6/26 9:06:00 [只看该作者]

Select Case e.DataCol.Name
    Case "部门"
        If e.DataRow("部门") = "销售部" 
            e.DataRow("序号") = "1"
elseIf e.DataRow("部门") = "生产部" 
            e.DataRow("序号") = "2"
 elseIf e.DataRow("部门") = "服务部" 
            e.DataRow("序号") = "3"
elseIf e.DataRow("部门") = "联络部" 
            e.DataRow("序号") = "4"
 End If
End Select

 回到顶部