这个该怎么弄 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：qq截图20200326085440.jpg

有个项目想实现这样的效果，一个控件里显示当月的所有日期，这个怎么实现呀，请教了，

然后发生什么业务，然后直接点日期，选择日期

dim d as date = new date(date.today.year,date.today.month,1)

dim d1 as date = d.adddays(1)

Dim tv As WinForm.TreeView

tv =e.Form.Controls("TreeView1")

do while d<d1

dim s as string = format(d,"yyyy-MM-dd")

tv.nodes.add(s,s)

d = d.adddays（1）

loop

老师，再麻烦一下，这个只能获取到一个日期 2020-3-1，我想要把这个月的所有日期都显示出来的

dim d1 as date = d.addmonths(1)

此主题相关图片如下：111.jpg

老师，我上面这个是组合框，下面这个是目录树，我想实现先选择了组合框里的单据类型，然后选择目录树的日期，然后双击目录树打开对应的窗体，我是为了把取得的日期能自动的添加到单据类型的日期，可怎么也不能同时取值，请教了，下面这代码由问题，这种情况应该在哪个事件里处理呢

SelectedIndexChanged代码

Dim Value As String =e.Sender.SelectedValue

Select Case Value

Case "采购单"

Forms("新增采购单").open

Case "出库单"

Forms("新增出库单").open

Case "费用支出单"

Forms("新增日常费用支出").open

Case "营业收入单"

Forms("新增营业收入").open

Case "其它收入单"

Forms("新增其它收入").open

Case "农户售粮单"

Forms("新增农户售粮").open

Case "农户售粮结款单"

Forms("新增粮款结算").open

End Select

NodeMouseClick 代码

Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox1")

Dim dr As DataRow = cmb.SelectedItem

If dr IsNot Nothing Then

cmb.value = dr("采购单")

MessageBox.Show("dr")

Forms("新增采购单").open

cmb.value = dr("费用支出单")

Forms("新增日常费用支出").open

End If

没看懂，日期取值到哪里？

NodeMouseClick 代码

Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox1")

Dim dr As string= cmb.SelectedItem

If dr IsNot Nothing Then

cmb.value = dr("采购单")

MessageBox.Show("dr")

Forms("新增采购单").open

cmb.value = dr("费用支出单")

Forms("新增日常费用支出").open

End If

日期值与这里没有关系，我是要先点了单据类型，然后点下面目录树任何一个日期能打开对应的窗体就行，日期赋值这个在每一个打开的对应的窗体里然后取值，赋值，日期赋值已调整好，就是这块报错 “从字符串“采购单”到类型“Interger”的转换无效”，这块怎么处理呀

Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox1")

Select Case cmb .Value

Case "采购单"

Forms("新增采购单").open

Case "出库单"

Forms("新增出库单").open

Case "费用支出单"

Forms("新增日常费用支出").open

Case "营业收入单"

Forms("新增营业收入").open

Case "其它收入单"

Forms("新增其它收入").open

Case "农户售粮单"

Forms("新增农户售粮").open

Case "农户售粮结款单"

Forms("新增粮款结算").open

End Select

成功了，谢谢老师

主题：这个该怎么弄