以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  vlookup匹配  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=131569)

--  作者:票风
--  发布时间:2019/3/1 14:26:00
--  vlookup匹配
你好,我想咨询下狐表两张sheet中怎样做到EXCEL中vlookup的功能


--  作者:有点甜
--  发布时间:2019/3/1 15:11:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/1453.htm

 


--  作者:票风
--  发布时间:2019/3/1 16:59:00
--  
还有个问题,前两列是日期我想要对比,如果第一列没有日期,第三列显示不超期,第一列日期小于第二列或者第二列是空白但是小于今天,则第三列显示超期,
要做到这样选择在AfterLoad写代码吗?,代码怎么写呢?
[此贴子已经被作者于2019/3/1 17:00:35编辑过]

--  作者:有点甜
--  发布时间:2019/3/1 17:09:00
--  

If e.datarow("第一列") = nothing then

    e.datarow("第三列") = "不超期"

ElseIf e.datarow("第二列") = nothing orelse  e.datarow("第一列") < e.datarow("第二列") then

    e.datarow("第三列") = "超期"

End If

 


--  作者:票风
--  发布时间:2019/3/1 17:35:00
--  
编译错误,“DataRow”不是“loadeEventArgs”的成员
还有代码中没有第二列是空白但是小于今天

--  作者:有点甜
--  发布时间:2019/3/1 17:37:00
--  

写到datacolchangd事件

 

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


--  作者:票风
--  发布时间: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

--  作者:有点甜
--  发布时间:2019/3/1 18:16: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/1 18:54:00
--  

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


这在哪里设置啊


--  作者:有点蓝
--  发布时间:2019/3/1 20:43:00
--  
把列的数据类型改为备注型的列即可:http://www.foxtable.com/webhelp/scr/0036.htm