If MessageBox.Show("是否删除?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
DataTables("客户发砖明细表").SQLDeleteFor("发砖单号 = '" & Tables("客户发砖总表").Current("发砖单号") & "'")
Tables("客户发砖明细表").Current("实发数量") = 0
Tables("客户发砖明细表").Current.Delete
Tables("客户发砖总表").Current.Delete
DataTables("客户发砖总表").save
DataTables("客户发砖明细表").save
End If
End If
End If
老师，我这红色代码怎么修改呀，这个明细表只有一条的时候正确，可是明细表有多条的时候就不行了，请老师赐教
加好友 
发短信
Post By：2019/3/17 14:56:00 [只看该作者]
