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
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事件前 （全局表中无相应代码），请教问题错误可能在那里。
加好友 
发短信
Post By：2020/9/29 18:39:00 [只看该作者]
