主题：下拉窗口值得获取

在窗口A中 添加一个表，点击表中某字段 可以显示 下拉窗口。 下拉窗口中只有一个控件Calendar，

 怎么样 将下拉窗口中的 Calendar 的value 赋值给 表中对应的字段啊

Calendar的DateSelected 事件是这样写的，没反应

Dim r As Row = Tables("领料过滤_table1").Current
Dim ca As WinForm.Calendar = e.Form.Controls("Calendar1")
Dim d As Date=Format(ca.value,"yyyy-MM-dd")
   r("值") =d

e.Form.Close