UC知道VB中说这个语句 lblHeading.Caption = lblHeading.Caption + Str(somePatient.HospNo)是未定义是怎么回事
来源：百度知道 编辑：UC知道 时间：2024/06/08 12:22:07
在下语句中
Private Sub Form_Load()
datSymptoms.DatabaseName = App.Path & "\IHMS_97.mdb"
datSymptoms.RecordSource = "Symptoms"
datSymptoms.Refresh
datDiseases.DatabaseName = App.Path & "\IHMS_97.mdb"
datDiseases.RecordSource = "Diseases"
datDiseases.Refresh
datHospHist.DatabaseName = App.Path & "\IHMS_97.mdb"
datHospHist.RecordSource = "Patient_Hospital_History"
datHospHist.Refresh
lblHeading.Caption = lblHeading.Caption + Str(somePatient.HospNo)
txtHospNo = somePatient.HospNo
txtCaseRefNo = somePatient.CaseRefNo
txtDoctorInCharge = somePatient.DocName
'Populate the combo boxes...
Dim y As Integer
Dim x As Integer
With datSymptoms.Recordset
.MoveFirst
y = 1
Do While Not .EOF
For x = 0 To 4
cboSymptom(x).List(y) = .Fiel
Private Sub Form_Load()
datSymptoms.DatabaseName = App.Path & "\IHMS_97.mdb"
datSymptoms.RecordSource = "Symptoms"
datSymptoms.Refresh
datDiseases.DatabaseName = App.Path & "\IHMS_97.mdb"
datDiseases.RecordSource = "Diseases"
datDiseases.Refresh
datHospHist.DatabaseName = App.Path & "\IHMS_97.mdb"
datHospHist.RecordSource = "Patient_Hospital_History"
datHospHist.Refresh
lblHeading.Caption = lblHeading.Caption + Str(somePatient.HospNo)
txtHospNo = somePatient.HospNo
txtCaseRefNo = somePatient.CaseRefNo
txtDoctorInCharge = somePatient.DocName
'Populate the combo boxes...
Dim y As Integer
Dim x As Integer
With datSymptoms.Recordset
.MoveFirst
y = 1
Do While Not .EOF
For x = 0 To 4
cboSymptom(x).List(y) = .Fiel
somePatient.HospNo 这里的问题
你没有定义你的somePatient.HospNo应该是自定义的类型
txtHospNo = somePatient.HospNo
txtCaseRefNo = somePatient.CaseRefNo
txtDoctorInCharge = somePatient.DocName
有多的成员
你出错的那句"未定义是指.这句里有需要定义的.而你用的时候没有定义..
例如.
dim a as new recordset '这就是定义
用A来打开数据连接...如果没有上面那句定义时..a就是未字义,这样必须出错.
很对