有没有在后台数据库里设置表关联？
Dim r As Row = Tables("销售订单").Current
If r IsNot Nothing AndAlso r.DataRow.RowState = DataRowState.Added Then
MessageBox.Show(1)
If Tables("销售明细表").Current Is Nothing Then
MessageBox.Show("No details cannot be saved 无订单明细,无法保存!", "Error 错误提示")
r.Delete
MessageBox.Show(2)
Else
r("客户名称") = e.Form.Controls("DropBox3").Text
r("客户电话") = e.Form.Controls("DropBox1").Text
r("折扣") = e.Form.Controls("TextBox3").Text
r("备注") = r("备注") & vbcrlf & e.Form.Controls("TextBox4").Text
MessageBox.Show(3)
r.Save
MessageBox.Show(5)
Tables("销售订单").AllowEdit = False
MessageBox.Show(7)
Tables("销售明细表").save
End If
End If
加好友 
发短信
Post By：2018/9/10 20:14:00 [显示全部帖子]
