一个奇怪的异常，求解决办法 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

有个表，通过筛选后，列表没有一行数据，接着点击新增，就会发生异常，如下图：

此主题相关图片如下：tm6(1)qtdh$i22%o5t}ehg.jpg

记录窗口出现大红叉，实在找不到为什么，求解答。

新增按钮的代码如下：

Dim dr As DataRow = Tables("接单部_tbOrders").AddNew().DataRow

dr("报价人UserId") = logindr("UserId")

Dim cmd As New SQLCommand

Dim dt As Date

cmd.C

cmd.CommandText = "Select GetDate()"

dt = cmd.ExecuteScalar()

dr("报价日期")=Format(dt, "G")

主题：一个奇怪的异常，求解决办法