查询出错问题
我在写一个超声工作站 写到病历查询时出了点问题 提示出错是：下标越界
Dim uu As Integer
Private Sub Command1_Click()
Dim liutSQL As String
If Trim(Txt1) = "" Or Trim(Txt2) = "" Then
MsgBox ("姓名和性别不能为空！")
Txt1.SelStart = 0
Txt1.SelLength = Len(Txt1)
Txt1.SetFocus
Exit Sub
Else
liutSQL = "select * from BL where 姓名='" + Trim(Txt1) + "' and 性别='" + Trim(Txt2) + "'"
Call liutdisp(liutSQL)
End If
End Sub
Private Sub Form_Load()
BL.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\工作站\Sample.mdb;Persist Security Info=False"
Txt1.Text = ""
Txt2.Text = ""
Call liutdisp("BL")
End Sub
Private Sub liutdisp(StrSQL As String)
Dim roww As Integer ''行
roww = 1
liut.Clear
liut.Rows = 1
Call liutdef
BL.RecordSource = StrSQL
BL.Refresh
If BL.Recordset.EOF = False Then
BL.Recordset.MoveFirst
End If
Do While BL.Recordset.EOF = False
liut.Rows = liut.Rows + 1
liut.TextMatrix(roww, 0) = BL.Recordset.Fields(0)
liut.TextMatrix(roww, 1) = BL.Recordset.Fields(1)
liut.TextMatrix(roww, 2) = BL.Recordset.Fields(2)
liut.TextMatrix(roww, 3) = BL.Recordset.Fields(3)
liut.TextMatrix(roww, 4) = BL.Recordset.Fields(4)
liut.TextMatrix(roww, 5) = BL.Recordset.Fields(5)
liut.TextMatrix(roww, 6) = BL.Recordset.Fields(6)
liut.TextMatrix(roww, 7) = BL.Recordset.Fields(7)
liut.TextMatrix(roww, 8) = BL.Recordset.Fields(8)
liut.TextMatrix(roww, 9) = BL.Recordset.Fields(9)
liut.TextMatrix(roww, 10) = BL.Recordset.Fields(10)
liut.TextMatrix(roww, 11) = BL.Recordset.Fields(11)
roww = roww + 1
BL.Recordset.MoveNext
Loop
End Sub
Private Sub liutdef()
liut.TextMatrix(0, 0) = "姓名"
liut.TextMatrix(0, 1) = "性别"
liut.TextMatrix(0, 2) = "住院（门诊）号"
liut.TextMatrix(0, 3) = "年龄"
liut.TextMatrix(0, 4) = "检查日期"
liut.TextMatrix(0, 5) = "超声编号"
liut.TextMatrix(0, 6) = "科别"
liut.TextMatrix(0, 7) = "送检医生"
liut.TextMatrix(0, 8) = "床号"
liut.TextMatrix(0, 9) = "检查医生"
liut.TextMatrix(0, 10) = "检查项目"
liut.TextMatrix(0, 11) = "临床诊断"
End Sub
上面是我的程序 调试后黄线在liut.TextMatrix(0, 2) = "住院（门诊）号"处
问题点数：50、回复次数：5Top
1 楼whachun（jakly）回复于 2006-06-01 15:52:53 得分 0
Clear应该把网格的列和行都清空了吧，Top
2 楼whachun（jakly）回复于 2006-06-01 15:55:33 得分 0
弄错了，是不是你的初始网格列不多的啊Top
3 楼chen2839846（云在海心）回复于 2006-06-01 15:58:24 得分 0
？我都是按设定好的列的 应该没问题啊Top
4 楼feiyun0112（http://feiyun0112.cnblogs.com/）回复于 2006-06-01 16:34:03 得分 50
liut.Cols = 12
liut.Rows = 1
Call liutdefTop
5 楼chen2839846（云在海心）回复于 2006-06-01 17:07:46 得分 0
解决了 谢谢feiyun0112(http://feiyun0112.cnblogs.com/)Top
