以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何对日期控件的输入数据进行判断  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=188134)

--  作者:riyuan
--  发布时间:2023/9/4 11:19:00
--  [求助]如何对日期控件的输入数据进行判断
Dim d1 As Date = Date.Today 
Dim d2 As Date = e.Sender.Text
Dim t As TimeSpan = d1 - d2
if t isdate then
e.Form.Controls("dl").Text = (Math.Round(t.TotalDays / 365.2422, 0) & "年")
else
MessageBox.Show("输入的日期格式不正确")
end if

图片点击可在新窗口打开查看此主题相关图片如下:屏幕截图 2023-09-04 111836.png
图片点击可在新窗口打开查看


--  作者:riyuan
--  发布时间:2023/9/4 11:20:00
--  
请教如何对日期控件进行判断


--  作者:有点蓝
--  发布时间:2023/9/4 11:29:00
--  
要判断什么?
--  作者:riyuan
--  发布时间:2023/9/4 12:22:00
--  
判断输入的日期是否正确,根据正确的日期来计算年限


--  作者:有点蓝
--  发布时间:2023/9/4 13:37:00
--  
怎么样的日期才是正确?如果要判断是否有填入日期值,参考:
if e.Sender.value <> nothing then
Dim d1 As Date = Date.Today 
Dim d2 As Date = e.Sender.value 
Dim t As TimeSpan = d1 - d2
e.Form.Controls("dl").Text = (Math.Round(t.TotalDays / 365.2422, 0) & "年")
else
MessageBox.Show("输入的日期格式不正确")
end if

--  作者:riyuan
--  发布时间:2023/9/4 16:47:00
--  
为什么删除不了选中的记录
图片点击可在新窗口打开查看此主题相关图片如下:屏幕截图 2023-09-04 164910.png
图片点击可在新窗口打开查看

  

[此贴子已经被作者于2023/9/4 16:49:42编辑过]

--  作者:有点蓝
--  发布时间:2023/9/4 16:48:00
--  
先完整看几遍:http://www.foxtable.com/webhelp/topics/1284.htm
--  作者:riyuan
--  发布时间:2023/9/4 17:03:00
--  
我这是利用在treeview的复选框进行操作,你上面给的例子没有看懂,请原谅
[此贴子已经被作者于2023/9/4 17:03:57编辑过]

--  作者:有点蓝
--  发布时间:2023/9/4 17:12:00
--  
7楼那是解决您修改贴内容之前的问题的,现在的贴内容又是另外一个问题了。

要删除的当前数据指的勾选的节点对应的数据?目录树是怎么生成的?当前节点和表格怎么关联的?

--  作者:riyuan
--  发布时间:2023/9/4 17:14:00
--  
删除单条的数据已经实现了,现在是想利用treeview的复选框,批量删除

[此贴子已经被作者于2023/9/4 17:14:39编辑过]