Dim d1 As Date = RibbonTabs("功能区1").Groups("功能组6").Items("工具栏2").Items("StartDate").ValueDim d2 As Date = RibbonTabs("功能区1").Groups("功能组6").Items("工具栏2").Items("endDate").Value
上面这两行我想从login表 读取最后一次登录的时间 和当前的时间。而不是菜单栏里的搜索框
请指点一下
Dim Filter As String = "time >= #" & d1 & "# and time <=#" & d2 & "#"
Tables("rukudan").Filter=Filter
Tables("xiaoshou").Filter=Filter
[此贴子已经被作者于2015/4/30 0:34:04编辑过]