Question

大家帮忙看看这段代码哪里错了,为什么执行时总会提示子程序或函数未定义呢.

Public Sub displaygrid1()
Dim i As Integer
On Error GoTo DisplayError
setgrid
setgridhead
MSFlexGrid1.Row = 0
If Not rs_data1.EOF Then
rs_data1.MoveFirst
Do While Not rs_data1.EOF
MSFlexGrid1.Row = MSFlexGrid1.Row + 1
MSFlexGrid1.Col = 0
If Not lsnull(rs_data1.Fields(0)) Then
MSFlexGrid1.Text = rs_data1.Fields(0)
Else
MSFlexGrid1.Text = ""
MSFlexGrid1.Col = 1
If Not lsnull(rs_data1.Fields(1)) Then
MSFlexGrid1.Text = rs_data1.Fields(1)
Else
MSFlexGrid1.Text = ""
MSFlexGrid1.Col = 2
If Not lsnull(rs_data1.Fields(2)) Then
MSFlexGrid1.Text = rs_data1.Fields(2)
Else
MSFlexGrid1.Text = ""
MSFlexGrid1.Col = 3
If Not lsnull(rs_data1.Fields(3)) Then
MSFlexGrid1.Text = rs_data1.Fields(3)
Else
MSFlexGrid1.Text = ""
MSFlexGrid1.Col = 4
If Not lsnull(rs_data1.Fields(4)) Then
MSFlexGrid1.Text = rs_data1.Fields(4)
Else
MSFlexGrid1.Text = ""
MSFlexGrid1.Col = 5
If Not lsnull(rs_data1.Fields(5)) Then
MSFlexGrid1.Text = rs_data1.Fields(5)
Else
MSFlexGrid1.Text = ""
rs_data1.MoveNext
Loop
End If
DisplayError:
If Err.Number <> 0 Then
MsgBox Err.Description
End If

End Sub

Answer 1

VB中并没有lsnull函数，
所以说子程序或函数未定义。

追问

这个函数怎么定义呀!!!能帮忙解决以下吗????

Answer 2

setgrid
setgridhead
应该提示的就是这两行吧.
检查是否定义了这两个过程, 检查是否存在拼写错误.