請問各位高手

目的:在原有表中新增兩列 如圖1

新增(Yield float 良品率 、  Costowat 損耗費)

窗體名稱: Hardware 如圖2

表名稱:Hardware     如圖3

問題描述:SQL數據庫已新增兩列資料，在 Access 當中看Hardware此表有數據，但在窗體卻沒有讀取更新到的樣子，且在設計模式此當中有小綠點表示控件異常

研究不出來是怎麼回事，請各位高手幫忙指點，相關代碼我插入在圖3之後

圖:1

圖:2

圖:3

此為Hardware代碼

Option Compare Database

Private Sub Form_Close()
On Error Resume Next
Forms.Item("price").PriceSub.Form.[零件号].Requery

End Sub

Private Sub Form_Load()
Me.HardwareSub.Form.RowHeight = -1

Me.HardwareSub.Form.ID.ColumnWidth = 0
Me.HardwareSub.Form.MaterialID.ColumnWidth = 0
Me.HardwareSub.Form.SourceID.ColumnWidth = 0
Me.HardwareSub.Form.零件号.ColumnWidth = 1300
Me.HardwareSub.Form.零件名称.ColumnWidth = 2000
Me.HardwareSub.Form.更新日期.ColumnWidth = 1100
Me.HardwareSub.Form.来源.ColumnWidth = 1000
Me.HardwareSub.Form.外购费.ColumnWidth = 900
Me.HardwareSub.Form.材质.ColumnWidth = 1000
Me.HardwareSub.Form.净重.ColumnWidth = 800
Me.HardwareSub.Form.坯重.ColumnWidth = 800
Me.HardwareSub.Form.铸造费.ColumnWidth = 800
Me.HardwareSub.Form.加工费.ColumnWidth = 800
Me.HardwareSub.Form.抛光费.ColumnWidth = 800
Me.HardwareSub.Form.电镀费.ColumnWidth = 800
Me.HardwareSub.Form.良品率.ColumnWidth = 800


End Sub

此為HardwareSub代碼
Option Compare Database

Private Sub 材质_AfterUpdate()
MaterialID = 材质.Column(2)
SetUpdateDate
End Sub


Private Sub 电镀费_AfterUpdate()
SetUpdateDate
End Sub


Private Sub 加工费_AfterUpdate()
SetUpdateDate
End Sub


Private Sub 净重_AfterUpdate()
SetUpdateDate
End Sub


Private Sub 来源_AfterUpdate()
SourceID = 来源.Column(1)
SetUpdateDate
End Sub


Private Sub 良品率_Click()
SetUpdateDate
End Sub


Private Sub 零件号_AfterUpdate()
SetUpdateDate
End Sub


Private Sub 零件名称_AfterUpdate()
SetUpdateDate
End Sub


Private Sub 抛光费_AfterUpdate()
SetUpdateDate
End Sub


Private Sub 抛光费_DblClick(Cancel As Integer)
DoCmd.RunCommand acCmdSaveRecord


Me.Parent.TxtDetailID = ID
Me.Parent.TxtMaterialName = 材质
DoCmd.OpenForm "CostPolishHW"
End Sub


Private Sub 坯重_AfterUpdate()
SetUpdateDate
End Sub


Private Sub 坯重_DblClick(Cancel As Integer)
DoCmd.RunCommand acCmdSaveRecord


Me.Parent.TxtDetailID = ID
Me.Parent.TxtMaterialName = 材质
DoCmd.OpenForm "GrossWeightHW"
End Sub


Private Sub SetUpdateDate()
更新日期 = Date
End Sub


Private Sub 損耗費_Click()
SetUpdateDate
End Sub


Private Sub 外购费_AfterUpdate()
SetUpdateDate
End Sub


Private Sub 铸造费_AfterUpdate()
SetUpdateDate
End Sub