告诉你一个方法；
创新互联主要从事网站设计制作、成都网站制作、网页设计、企业做网站、公司建网站等业务。立足成都服务安平,10年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18980820575
在
End If
与
Form5.Text = Form5.Text " -- " sno snn
这两行代码当中加一行代码：
Msgbox(str)
看看，输出什么，仔细检查一下，就应该知道什么问题了。
如下面这样；
......
End If
Msgbox(str)
Form5.Text = Form5.Text " -- " sno snn
首先在窗体上添加Button1，ListBox1，下面是完整代码
Public Class Form1
Public Sub BubbleSort(ByVal arr() As Integer) '冒泡法排序
Dim temp As Double
Dim i, j As Integer
For i = 0 To arr.GetUpperBound(0) - 1
For j = i + 1 To arr.GetUpperBound(0) - 1
If arr(i) arr(j) Then
temp = arr(j)
arr(j) = arr(i)
arr(i) = temp
End If
Next
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '调用
Dim arr() As Integer = {55, 22, 33, 11, 77, 88}
BubbleSort(arr) '调用排序过程
Me.ListBox1.Items.Clear()
For i = 0 To arr.GetUpperBound(0) - 1 '显示排序后结果
Me.ListBox1.Items.Add(arr(i).ToString)
Next
End Sub
End Class
如果语法没问题的话,那就看看你那个(用户信息表)里有没有name 和 password 字段吧.
我刚碰到和你一样的问题,就是把表名打错了,那表里没有sql语句里的字段.
看一下aa 是否传过来值了
估计是没得到值
strSql = "select top 1 * from userform"
改成这个就知道查询是否出问题了！
