收到  后面我做个自动刷新属性 进去 

Private Sub DataFillerStyle1_BeforeOpenForm(ByVal sender As System.Object, ByVal e As WinForm.TableAddRowStyle.BeforeOpenDataFillerFormEventArgs) Handles DataFillerStyle1.BeforeOpenForm

    WinForm.Connection.ExecuteNonQuery("SunRiseSql","T_yf_itemP1Ins '" &Me.level1.value &"'" )   

    Me.DataFillerStyle1.LoadData("")

End Sub

如此也可解决问题．　　谢谢子系！