按名称搜索记录并在数据网格中显示VB和Access
问题描述:
我是一名TyBCA学生我创建了一个使用VB作为前端和MS Access作为后端的窗口应用程序。当我创建一个健身房管理系统软件时,我无法弄清楚我的搜索代码中有什么问题。按名称搜索记录并在数据网格中显示VB和Access
根据它应该是当我点击搜索Btn时应出现一个消息框/对话框询问“输入要搜索的名称”,结果应显示在数据网格上名为“MS1”和“MS ”。
MS1.Visible = False
MS.Visible = True
Command4.Visible = False
Command6.Visible = True
id = InputBox("enter the id")
rr.Open "select * from tblMembers where Member_id=" & id, cn, adOpenDynamic, adLockOptimistic
If Not (rr.EOF) Then
MS.Cols = 20
MS1.TextMatrix(0, 0) = "Member_id"
MS1.TextMatrix(0, 1) = "First_Name"
MS1.TextMatrix(0, 2) = "Last_Name"
MS1.TextMatrix(0, 3) = "Gender"
MS1.TextMatrix(0, 4) = "Membership"
MS1.TextMatrix(0, 5) = "Address"
MS1.TextMatrix(0, 6) = "Zip_Code"
MS1.TextMatrix(0, 7) = "Date_Of_Birth"
MS1.TextMatrix(0, 8) = "Mobile_No"
MS1.TextMatrix(0, 9) = "Medical_History"
MS1.TextMatrix(0, 10) = "Pay_Due_Date"
MS1.TextMatrix(0, 11) = "Amount"
MS1.TextMatrix(0, 12) = "Installed_amt"
MS1.TextMatrix(0, 13) = "Balance"
MS1.TextMatrix(0, 14) = "Profile"
rr.MoveFirst
r = 1
Do While Not rr.EOF
MS1.Rows = MS1.Rows + 1
MS1.TextMatrix(r, 0) = rr.Fields(0)
MS1.TextMatrix(r, 1) = rr.Fields(1)
MS1.TextMatrix(r, 2) = rr.Fields(2)
MS1.TextMatrix(r, 3) = rr.Fields(3)
MS1.TextMatrix(r, 4) = rr.Fields(4)
MS1.TextMatrix(r, 5) = rr.Fields(5)
MS1.TextMatrix(r, 6) = rr.Fields(6)
MS1.TextMatrix(r, 7) = rr.Fields(7)
MS1.TextMatrix(r, 8) = rr.Fields(8)
MS1.TextMatrix(r, 9) = rr.Fields(9)
MS1.TextMatrix(r, 10) = rr.Fields(10)
MS1.TextMatrix(r, 11) = rr.Fields(11)
MS1.TextMatrix(r, 12) = rr.Fields(12)
MS1.TextMatrix(r, 13) = rr.Fields(13)
rr.MoveNext
r = r + 1
Loop
rr.Close
答
它没什么价值,但是在你的代码中你只显示MS(前两行),然后只填写MS1。
+0
添加MS和MS1是两个不同的控件,你需要显示MS1填充完成后。尝试在代码末尾添加'MS1.visible = True'。 – Aboc
有人非常友好地删除逐行反引号格式并应用(更易读)块格式。这将是相当费力。请花点时间熟悉这个工具 - 它是编辑器中的一个按钮。也请不要在这里要求紧急或特殊待遇 - 大多数读者都是志愿者,不会善意地匆忙。 – halfer