主题：[求助]代码出错，到类型"double"的转换无效（已解决）

谢谢狐爸的回复，好像还有一点问题。

 

此主题相关图片如下：o.png

将这行：

 

Dim dr1 As DataRow = e.DataTable.Find("单位 = '" & dr("单位") & "'And 日期 =# '" & mydate & "'#")

改为：

 

 Dim dr1 As DataRow = e.DataTable.Find("单位 = '" & dr("单位") & "' And 日期 = #" & mydate & "#")

好像还是不行，值为0。

 

此主题相关图片如下：p.png

设置完成之后，对于已经有的数据，要重置日期或单位列一次，才会生效。

 

 

ok了，刷新后，数值符合要求。

 

此主题相关图片如下：q.png

谢谢狐爸老师，怎么晚，还打扰老师，真不好意思，深表歉意，再次衷心感谢！！

磨刀不误砍柴工，建议你暂停开发，重看开发指南中《foxtable编程》这一章两遍。

通过这个帖子，可以看出你一些基本的概念和方法没有掌握，不宜进行下一步的开发。

谢谢狐爸老师的建议，实在没有办法，老板逼得。待这个模块完成后，打算静下心来，按照老师的要求，好好复习有关章节。谢谢狐爸老师的关心。

hhbb老师，通过论坛提问解疑，不失为学习提高的一个捷径，不是吗？得到您的关注，十分荣幸！还望得到您的帮助！！