Question

为什么会显示用户定义类型未定义.....知道的回答下 ，万分感谢

Dim s As Variant

Private Sub Command1_Click()
Unload Me

End Sub

Private Sub Command2_Click(Index As Integer)

Select Case Index
Case 0
s = InputBox("输入学号", , "1")

Data1.Recordset.FindFirst "学号 like '" + s + "'"
Case 1
s = InputBox("输入姓名", , "")

Data1.Recordset.FindFirst "姓名 like '" + s + "'"
Case 2
s = InputBox("输入手机", , " ")

Data1.Recordset.FindFirst "手机号 like '" + s + "'"
Case 3
s = InputBox("输入电话号码", , "1")

Data1.Recordset.FindFirst "宅电 like '" + s + "'"

End Select
End Sub

Private Sub Form_Load()
fstr.Left = 100
fse.Left = 100
fstr.Width = Command1.Width + Data1.Width
fstr.Height = Command1.Height
fse.Height = Command2(1).Height
fse.Width = Command2(1).Width * 4
Command1.Top = 0
Data1.Top = 0
Data1.Left = 0
Command1.Left = Data1.Width
Command2(0).Top = 0
Command2(1).Top = 0
Command2(2).Top = 0
Command2(3).Top = 0

End Sub

Private Sub Label6_Click()
Label6.BackColor = vbRed
Label7.BackColor = vbWhite
fstr.Visible = True
fse.Visible = False
End Sub

Private Sub Label7_Click()
Label7.BackColor = vbRed
Label6.BackColor = vbWhite
fse.Visible = True
fstr.Visible = False
End Sub
vb 语言

Answer 1

Private Function CheckBook1(ByVal BkName As String, _
ByVal BkAuthor As String, _
ByVal BkPress As String, _
ByVal BkPrsDate As String, _
ByVal BkType As Integer, _
ByVal index As Interger) As String

最后一行出错了
ByVal index As Interger
是Integer 你多了个字母 你的是Interger啦
哈哈

Answer 2

错误的地点在哪 你的代码看不出画面
实际的控件。说清楚你画面的实际控件和个数。

Answer 3

fstr和fse是什么控件？

Answer 4

java语言？？？？