0
설정 : 테이블 고객 테이블 SQL.PlaceNamesData와 2 데이터베이스 Lightswitch.applicationdata을 국가, 미국, 장소 및 우편 번호 AddCustomer와 화면이 새 데이터 화면입니다. 이 화면에는 국가, 주, 장소를 필터링하는 3 개의 자동 완성 상자가 있습니다. 우편 번호는 장소와 일대일 관계입니다.별도의 데이터베이스에 관계 Lightswitch.ApplicationData에 기록을 저장 할 수 없습니다
문제 : 제공된 코드에서 필드를 새로운 고객 레코드에 저장하려고했지만 선택한 국가, 주, 장소 및 우편 번호는 회사 이름 및 기타 세부 정보와 함께 저장되지 않습니다. 대신 PlaceNamesData DB의 각 외래 키는 사후 코드 필드를 기준으로 오름차순으로 저장됩니다.
저는 며칠 동안 다른 방법을 시도해 왔습니다. 필터링 된 화면 값을 고객 레코드의 외래 키에 저장하려면 어떻게합니까?
Namespace LightSwitchApplication
Public Class AddCustomer
Private Sub AddCustomer_InitializeDataWorkspace(saveChangesTo As List(Of Microsoft.LightSwitch.IDataService))
' Write your code here.
Me.CustomerProperty = New Customer()
End Sub
Private Sub AddCustomer_Saved()
' Write your code here.
Me.Close(False)
Application.Current.ShowDefaultScreen(Me.CustomerProperty)
End Sub
Private Sub SaveCustomer_Execute()
Dim newCustomer As Customer = Me.CustomerProperty
Dim co As Country = Me.CountryProp.Country
Dim st As State = Me.StateProp.State
Dim pl As Place = Me.PlaceProp.Place
Dim po As PostCode = Me.PlaceProp.PostCode
With newCustomer
.CompanyName = Me.CustomerProperty.CompanyName
.Street = Me.CustomerProperty.Street
.AccountTerms = Me.CustomerProperty.AccountTerms
.TaxRate = Me.CustomerProperty.TaxRate
.Country = co
.State = st
.Place = pl
.PostCode = po
End With
End Sub
Private Sub AddCustomer_Saving(ByRef handled As Boolean)
' Write your code here.
handled = True
End Sub
End Class
End Namespace