- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 这个该怎么弄 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147865)
-- 发布时间：2020/3/26 9:05:00
-- 这个该怎么弄
此主题相关图片如下：qq截图20200326085440.jpg
有个项目想实现这样的效果，一个控件里显示当月 的所有日期，这个怎么实现呀，请教了，
然后发生什么业务，然后直接点日期，选择日期
-- 发布时间：2020/3/26 9:54:00
--
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/26 11:09:00
--
老师，再麻烦一下，这个只能获取到一个日期 2020-3-1，我想要把这个月的所有日期都显示出来的
-- 发布时间：2020/3/26 11:20:00
--
dim d1 as date = d.addmonths(1)
-- 发布时间：2020/3/26 14:19:00
--
此主题相关图片如下：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")
cmb.ComboList = "采购单|出库单|费用支出单|营业收入单|其它收入单|农户售粮单|农户售粮结款单"
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
-- 发布时间：2020/3/26 14:27:00
--
没看懂，日期取值到哪里？
-- 发布时间：2020/3/26 16:31:00
--
NodeMouseClick 代码
Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox1")
cmb.ComboList = "采购单|出库单|费用支出单|营业收入单|其它收入单|农户售粮单|农户售粮结款单"
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”的转换无效”，这块怎么处理呀
-- 发布时间：2020/3/26 16:44:00
--
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
-- 发布时间：2020/3/26 16:51:00
--
成功了，谢谢老师