计算机毕业设计介绍：
（3）判断题查询
此模块可以通过输入题目内容或答案，点击查询按钮，即可查询出符合条件的判断题信息。
以下是引用片段： Public Sub UpdateList()
'设置表格的标头和样式
'动态从数据库中装载数据
'1
Dim arrName()
arrName = Array("编号", "题目内容", "正确答案")
Dim arrColwidth()
arrColwidth = Array(0, ddd.Width - 1300, 1000)
ddd.Cols = 3
ddd.Rows = 2
Dim i As Long
For i = 0 To ddd.Cols - 1
ddd.ColWidth(i) = arrColwidth(i)
ddd.TextMatrix(0, i) = arrName(i)
ddd.TextMatrix(1, i) = ""
Next
ddd.Rows = 28
Call UpdateDDD(ddd, ExecSql("SELECT ID, Title, Answer FROM dbo.JudgeProblem where title like '%" & Me.Text1.Text & "%' and answer like '%" & Me.Combo1.Text & "%'"))
End Sub
Private Sub UserControl13_Click()
'显示判断题内容
If ddd.Row <= 0 Then Exit Sub
If Trim(ddd.TextMatrix(ddd.Row, 0)) = "" Then Exit Sub
frmIsProblemAdd.idkey = Trim(ddd.TextMatrix(ddd.Row, 0))
frmIsProblemAdd.boolReadOnly = True
frmIsProblemAdd.Show 1
End Sub
|
<责任编辑：计算机毕业设计网(http://www.xiaoniu168.com)>