专家坐堂-获取日期的年份月份Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  获取日期的年份月份  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=49420)

--  作者：散客
--  发布时间：2014/4/17 16:40:00
--  获取日期的年份月份

Dim nf As WinForm.ComboBox = e.Form.Controls("选择年份")
Dim yf As WinForm.ComboBox = e.Form.Controls("选择月份")
nf.ComboList = DataTables("融资合同备案表").GetComboListString("接收日期")

请问如何只显示“接收日期”的年份

--  作者：有点甜
--  发布时间：2014/4/17 16:43:00
--

试试用SQLGetComboListString

Dim nf As WinForm.ComboBox = e.Form.Controls("选择年份")
Dim yf As WinForm.ComboBox = e.Form.Controls("选择月份")
nf.ComboList = DataTables("融资合同备案表").SQLGetComboListString("Year(接收日期)")

http://www.foxtable.com/help/topics/2910.htm

--  作者：Bin
--  发布时间：2014/4/17 16:46:00
--

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT year(接收日期) as 年 From {融资合同备案表}"
dt = cmd.ExecuteReader()

MessageBox.show(dt.GetComboListString("年"))

--  作者：散客
--  发布时间：2014/4/17 16:52:00
--

Dim nf As WinForm.ComboBox = e.Form.Controls("选择年份")
Dim yf As WinForm.ComboBox = e.Form.Controls("选择月份")
nf.ComboList = DataTables("融资合同备案表").SQLGetComboListString("Year(接收日期)")

表达式中 \'DistinctYear\' 函数未定义。

还是不行，出现这个提示？

--  作者：Bin
--  发布时间：2014/4/17 16:56:00
--
看3楼

--  作者：有点甜
--  发布时间：2014/4/17 17:08:00
--

以下是引用散客在2014-4-17 16:52:00的发言：

Dim nf As WinForm.ComboBox = e.Form.Controls("选择年份")
Dim yf As WinForm.ComboBox = e.Form.Controls("选择月份")
nf.ComboList = DataTables("融资合同备案表").SQLGetComboListString("Year(接收日期)")

表达式中 \'DistinctYear\' 函数未定义。

还是不行，出现这个提示？

access数据库测试通过，你的是sqlserver？

Dim nf As WinForm.ComboBox = e.Form.Controls("选择年份")
Dim yf As WinForm.ComboBox = e.Form.Controls("选择月份")
nf.ComboList = DataTables("融资合同备案表").SQLGetComboListString(" Year(接收日期) ")

--  作者：散客
--  发布时间：2014/4/17 17:19:00
--

年已可以谢