按名称搜索记录并在数据网格中显示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

来源

2017-02-28 chirag mistry

有人非常友好地删除逐行反引号格式并应用（更易读）块格式。这将是相当费力。请花点时间熟悉这个工具 - 它是编辑器中的一个按钮。也请不要在这里要求紧急或特殊待遇 - 大多数读者都是志愿者，不会善意地匆忙。 – halfer

它没什么价值，但是在你的代码中你只显示MS（前两行），然后只填写MS1。

来源

2017-02-28 07:48:18 Aboc

添加MS和MS1是两个不同的控件，你需要显示MS1填充完成后。尝试在代码末尾添加'MS1.visible = True'。 – Aboc

按名称搜索记录并在数据网格中显示VB和Access

回答

相关问题