专家坐堂-增加行时报错！Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

报错信息如下：

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2020.5.29.8

错误所在事件：

详细错误信息：

\'=\' 附近有语法错误。

代码如下：

Case "明细新增"

Dim tb1 As Table = Tables("tblckydcgrkmx")

If e.Form.Controls("khbh").value IsNot Nothing Then

tb1.AllowEdit = True

tb1.AllowAddNew = True

tb1.AddNew

tb1.Select(tb1.RowSel,tb1.Cols("djlb").Index)

Else

Messagebox.show("需先确定客户名称","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

tb1表的增加行前事件 BeforeAddDataRow

If e.DataTable.DataRows.Count > 0 Then \'如果不是一个空表

Dim dr As DataRow = e.DataTable.DataRows(e.DataTable.DataRows.Count - 1) \'获得最后一行

If dr.IsNULL("djlb") OrElse dr.IsNULL("xmbh2") Then

MessageBox.show("请补全定单信息")

e.Cancel = True

End If

增加一行时执行DataRowAdding

If Forms("frmcg04cgrkedit").Opened Then

E.DataRow("gkph") = newnumber("管控批号")

E.DataRow("yddh") = newnumber("异动编号")

e.DataRow("djbh") = Forms("frmcg04cgrkedit").Controls("djbh").value

e.DataRow("djrq1") = Date.Today

e.DataRow("wldw1") = Forms("frmcg04cgrkedit").Controls("khbh").value

e.DataRow("dwmc1") = Forms("frmcg04cgrkedit").Controls("DropBoxwlkh").value

E.DataRow("sysbz") = "手动新增"

End If

用MessageBox.Show 测式报错应该在 BeforeAddDataRow 事件后，DataRowAdding事件前（全局表中无相应代码），请教问题错误可能在那里。