主题：vlookup匹配

你好，我想咨询下狐表两张sheet中怎样做到EXCEL中vlookup的功能

参考

 

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

 

还有个问题，前两列是日期我想要对比，如果第一列没有日期，第三列显示不超期，第一列日期小于第二列或者第二列是空白但是小于今天，则第三列显示超期，

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

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

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

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

End If

 

编译错误，“DataRow”不是“loadeEventArgs”的成员

写到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

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

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

这在哪里设置啊

把列的数据类型改为备注型的列即可:http://www.foxtable.com/webhelp/scr/0036.htm