Foxtable(狐表) → 用户栏目 → 专家坐堂 → vlookup匹配


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

主题：vlookup匹配
帅哥哟，离线，有人找我吗？
票风
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：27 积分：245 威望：0 精华：0 注册：2018/7/30 10:53:00 		vlookup匹配  发帖心情 Post By：2019/3/1 14:26:00 [显示全部帖子]

你好，我想咨询下狐表两张sheet中怎样做到EXCEL中vlookup的功能
 回到顶部
帅哥哟，离线，有人找我吗？
票风
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：27 积分：245 威望：0 精华：0 注册：2018/7/30 10:53:00 		  发帖心情 Post By：2019/3/1 16:59:00 [显示全部帖子]

还有个问题，前两列是日期我想要对比，如果第一列没有日期，第三列显示不超期，第一列日期小于第二列或者第二列是空白但是小于今天，则第三列显示超期，
要做到这样选择在AfterLoad写代码吗？，代码怎么写呢？
[此贴子已经被作者于2019/3/1 17:00:35编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
票风
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：27 积分：245 威望：0 精华：0 注册：2018/7/30 10:53:00 		  发帖心情 Post By：2019/3/1 17:35:00 [显示全部帖子]

编译错误，“DataRow”不是“loadeEventArgs”的成员
还有代码中没有第二列是空白但是小于今天
 回到顶部
帅哥哟，离线，有人找我吗？
票风
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：27 积分：245 威望：0 精华：0 注册：2018/7/30 10:53:00 		  发帖心情 Post By：2019/3/1 18:02:00 [显示全部帖子]

以下代码有问题吗，为什么狐表会经常性强关

If e.DataRow("合同约定回款月份以合同约定条款填列") = Nothing  Then

    e.DataRow("是否超期") = "不超期"

ElseIf e.DataRow("收到款项日期") = Nothing AndAlso e.DataRow("合同约定回款月份以合同约定条款填列") < Date.Today OrElse  e.DataRow("合同约定回款月份以合同约定条款填列") < e.DataRow("收到款项日期") Then

    e.DataRow("是否超期") = "超期"
       
End If

 If e.DataRow("合同约定回款月份以合同约定条款填列") > e.DataRow("收到款项日期") Then

        e.DataRow("是否超期") = "不超期"

 End If
 回到顶部
帅哥哟，离线，有人找我吗？
票风
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：27 积分：245 威望：0 精华：0 注册：2018/7/30 10:53:00 		  发帖心情 Post By：2019/3/1 18:54:00 [显示全部帖子]

此外，还可以以备注列的形式，单独开一个停靠窗口，用来显示和编辑长文本：


这在哪里设置啊
 回到顶部
帅哥哟，离线，有人找我吗？
票风
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：27 积分：245 威望：0 精华：0 注册：2018/7/30 10:53:00 		  发帖心情 Post By：2019/3/4 11:55:00 [显示全部帖子]

If User.Name = "开发者" Then
    DataTables("店铺基础表").LoadFilter = ""
Else
    DataTables("店铺基础表").LoadFilter ="分公司1 = '"& User.Name & "'" AndAlso   DataTables("店铺基础表").LoadFilter ="分公司2 = '"& User.Name & "'" 
End If
DataTables("店铺基础表").Load()

上面代码不对，我想做到的是店铺基础表权限设置成，每次开表只显示'分公司1"和"分公司2"都等于用户名的行   
“分公司1” 和“分公司2”  对应的行数不一样
正确的代码是怎么样的
 回到顶部
帅哥哟，离线，有人找我吗？
票风
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：27 积分：245 威望：0 精华：0 注册：2018/7/30 10:53:00 		  发帖心情 Post By：2019/3/7 19:32:00 [显示全部帖子]

这个代码还是有问题  
“合同约定回款月份以合同约定条款填列”有内容  而“收到款项日期”无内容  “是否超期”应显示超期，可是现在却显示不超期

Select Case e.DataCol.name
    Case "合同约定回款月份以合同约定条款填列", "收到款项日期"
        If e.DataRow("合同约定回款月份以合同约定条款填列") = Nothing  Then
            
            
            e.DataRow("是否超期") = "不超期"
            
            
        ElseIf e.DataRow("收到款项日期") = Nothing AndAlso e.DataRow("合同约定回款月份以合同约定条款填列") < Date.Today OrElse  e.DataRow("合同约定回款月份以合同约定条款填列") < e.DataRow("收到款项日期") Then
            
            
            e.DataRow("是否超期") = "超期"
            
        End If
        
        
        If e.DataRow("合同约定回款月份以合同约定条款填列") > e.DataRow("收到款项日期") Then
            
            
            e.DataRow("是否超期") = "不超期"
            
            
        End If
End Select
[此贴子已经被作者于2019/3/7 19:32:54编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
票风
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：27 积分：245 威望：0 精华：0 注册：2018/7/30 10:53:00 		  发帖心情 Post By：2019/3/8 14:24:00 [显示全部帖子]

链接：https://pan.baidu.com/s/1OqXJS_RpPAP_uR51oH-tjg
提取码：v1vz

项目放到网盘了
 回到顶部
帅哥哟，离线，有人找我吗？
票风
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：27 积分：245 威望：0 精华：0 注册：2018/7/30 10:53:00 		  发帖心情 Post By：2019/3/8 14:55:00 [显示全部帖子]

“合同约定回款月份以合同约定条款填列">"收到款项日期"   应显示不超期，可是现在却显示"超期"
 回到顶部
帅哥哟，离线，有人找我吗？
票风
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：27 积分：245 威望：0 精华：0 注册：2018/7/30 10:53:00 		  发帖心情 Post By：2019/3/8 15:17:00 [显示全部帖子]

收到款项日期"  空白，说明钱未收到，这时有两情况：

1.合同约定日回款日期还未到   就是不超期

2合同约定日回款日期到了  就是 这条代码  e.DataRow("合同约定回款月份以合同约定条款填列") < Date.Today  钱未收到，那就是超期了

 

另外：

收到款项日期"不是空白  说明钱收到了，那也是两种情况

1.合同约定日回款日期>收到款项日期  ,那就是规定时间内回款，不超期

2合同约定日回款日期<收到款项日期,超出规定时间内回款，超期

[此贴子已经被作者于2019/3/8 15:19:57编辑过]
 回到顶部
总数 15 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询