子表單form6（會員管理）點擊“新增會員"按鈕，加載form7(新增會員）。
Private Sub Command1_Click()
Form7.Show 1
End Sub
雙擊Mshflexgrid1,加載表單8（會員修改）。
Private Sub MSHFlexGrid1_DblClick()
If MSHFlexGrid1.Rows > 2 Then
Form8.Show 1
Else
Exit Sub
End If
End Sub
form7"確定”按鈕
Private Sub Command2_Click()
......
Unload Form6
Form6.Show
Unload Form7
End Sub
form8"確定"按鈕
Private Sub Command2_Click()
......
Unload Form6
Form6.Show
Unload Form8
End Sub
運行時form7確定無錯誤，form8確定出現“實時錯誤‘401’：當打開有模式表單時不能顯示無模式表單“
實在想不明白為什么，求助！！！
uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
form7 “確定”按鈕代碼Private Sub Command2_Click()
Adodc1.RecordSource = "select * from 會員管理"
Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("會員編號") = Text1.Text
Adodc1.Recordset.Fields("會員姓名") = Text2.Text
Adodc1.Recordset.Fields("首字母") = Text3.Text
If Text4.Text = "" Then
Adodc1.Recordset.Fields("會員生日") = CDate("1601 - 1 - 1")
Else
Adodc1.Recordset.Fields("會員生日") = CDate(Text4.Text)
End If
Adodc1.Recordset.Fields("電話") = Text5.Text
Adodc1.Recordset.Fields("會員分組") = Combo1.Text
Adodc1.Recordset.Fields("消費總額") = Text6.Text
Adodc1.Recordset.Fields("可用積分") = Text7.Text
Adodc1.Recordset.Fields("最后消費日期") = CDate("1601-1-1")
Adodc1.Recordset.Update
Unload Form6
Form6.Show
Unload Form7
End Sub
form8 "確定"按鈕代碼
Private Sub Command2_Click()
Adodc1.RecordSource = "select * from 會員管理 where 會員編號='" & Text1.Text & "'"
Adodc1.Refresh
Adodc1.Recordset.Fields("會員編號") = Text1.Text
Adodc1.Recordset.Fields("會員姓名") = Text2.Text
Adodc1.Recordset.Fields("首字母") = Text3.Text
If Text4.Text = "" Then
Adodc1.Recordset.Fields("會員生日") = CDate("1601 - 1 - 1")
Else
Adodc1.Recordset.Fields("會員生日") = CDate(Text4.Text)
End If
Adodc1.Recordset.Fields("電話") = Text5.Text
Adodc1.Recordset.Fields("會員分組") = Combo1.Text
Adodc1.Recordset.Fields("消費總額") = Text6.Text
Adodc1.Recordset.Fields("可用積分") = Text7.Text
Adodc1.Recordset.Fields("最后消費日期") = CDate("1601-1-1")
Adodc1.Recordset.Updatef
Unload Form6
Form6.Show
Unload Form8
End Sub
我新建一個父表單，子表單上有兩個按鈕，彈出兩個表單，兩個表單上的按鈕代碼
unload form1
fom1.show
unload form2 和unload form3
運行正常
我就覺得很詭異了。。。
uj5u.com熱心網友回復：
好像打開表單與關閉表單沒有規律性，一般在程式中打開某個表單只能打開一次，關閉也是一樣，在表單關閉后，才能再次打開，從你的代碼中看出好像多次關閉打開，而且打開與關閉的順序好像也有問題。另外，實際上會員管理就一個表單就能解決問題，不知道你為什么搞了好幾個表單，查詢、添加、修改、洗掉全部在一個表單不好嗎？
uj5u.com熱心網友回復：
對視窗的理解還需要更深刻form8"確定"按鈕
Private Sub Command2_Click()
......
Unload Form6
Form6.Show <=這個Form6是無模式方式打開的,代碼不該在form8里的,先unload掉form8就不會出錯了,問題是這代碼不該在form8里
Unload Form8
End Sub
uj5u.com熱心網友回復：
首先告訴你，打開模式表單后，是可以再打開一個模式表單，可以不停地打開模式表單。其實，對于資料的增刪改，沒必要用那么多模式，就象樓上說的，放在一個表單上好了。
uj5u.com熱心網友回復：
from?? show 0 都這樣 全部采用非模態，就不會出現這個錯誤了uj5u.com熱心網友回復：
其實這個會員查詢、會員添加、會員修改、會員洗掉，完全可以在一個表單就能夠完成，為什么要搞得那么復雜。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/76764.html
標籤：VB基礎類