以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]从EXCEL中导入  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=128230)

--  作者:leoli
--  发布时间:2018/12/1 16:36:00
--  [求助]从EXCEL中导入
从EXCEL中导入明细时,其中一个字段是日期型,可不可以选择指定的日期导入到foxtable表中。谢谢。
--  作者:有点蓝
--  发布时间:2018/12/1 16:42:00
--  
使用代码导,如果不是指定日期就跳过这行数据:http://www.foxtable.com/webhelp/scr/2334.htm

Dim Book As New XLS.Book("c:\\test\\订单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("订单").StopRedraw()
\'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As String = {"编号","产品","客户","雇员","单价","折扣","数量","日期"}
\'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
Dim d As Date = #12/1/2018#
For n As Integer = 1 To Sheet.Rows.Count -1
    If cdate(Sheet(n,7).Value) = d
        Dim r As Row = Tables("订单").AddNew()
        For m As Integer = 0 To nms.Length - 1
            r(nms(m)) = Sheet(n,m).Value
        Next
    End If
Next
Tables("订单").ResumeRedraw()

--  作者:leoli
--  发布时间:2018/12/1 17:02:00
--  
#12/1/2018#  这个日期能从窗口中的datepicktime中获取吗 ? 另外同时还要满足窗口控件 “客户”
--  作者:有点蓝
--  发布时间:2018/12/1 17:13:00
--  
Dim d As Date = e.form.controls("datepicktime1").value
Dim kh As string = e.form.controls("客户").value
……
If cdate(Sheet(n,7).Value) = d andalso Sheet(n,2).Value = kh

--  作者:leoli
--  发布时间:2019/2/20 18:10:00
--  
版主,请问一下,如何设定这个日期从今天起算一个月内的明细导入进来?
--  作者:有点蓝
--  发布时间:2019/2/20 20:22:00
--  
参考:http://www.foxtable.com/webhelp/scr/2720.htm
--  作者:leoli
--  发布时间:2019/2/20 21:47:00
--  
版主, 以下帮忙看一下,好像不对了。
 
Dim d As Date = Date.Today.Year + 30
For n As Integer = 1 To Sheet.Rows.Count -1
    If cdate(Sheet(n,7).Value) = d

 


--  作者:有点蓝
--  发布时间:2019/2/20 21:53:00
--  
日期的用法先学学:http://www.foxtable.com/webhelp/scr/1337.htm

结合6楼的帮助理解一下

--  作者:leoli
--  发布时间:2019/2/21 18:34:00
--  

版主,能帮忙再看一下吗? 谢谢。

 

Dim d As Date = Today.Year + 30
For n As Integer = 1 To Sheet.Rows.Count -1
    If cdate(Sheet(n,7).Value) < d

--  作者:有点蓝
--  发布时间:2019/2/21 20:16:00
--  

For n As Integer = 1 To Sheet.Rows.Count -1
    If cdate(Sheet(n,7).Value) >= date.totay andalso cdate(Sheet(n,7).Value) < date.totay.AddMonths(1)