计算机毕业设计介绍：
4.11 报表管理（frmMbList）
点击系统更新和维护里的报表管理，弹出模板设置页面，该页面显示人口信息列表的各项信息，通过选择需要显示的项进行添加，即设置该模板名称下列表的项。
|
以下是引用片段：
Private Sub btn添加_Click()
Dim i As Long
'删除当前的模板内容
Call Exec_SqL("delete from 模版 where 模版名称='" & Trim(Me.Text3.Text) & "'")
For i = 1 To ddd.Rows - 1
If ddd.TextMatrix(i, 0) = "√" Then
Call Exec_SqL("insert into 模版(模版名称,表头内容) values ('" & Trim(Me.Text3.Text) & "','" & Me.ddd.TextMatrix(i, 1) & "')")
End If
Next
'显示不同的模板内容
Me.Combo1.Clear
Dim tmprs As New ADODB.Recordset
Set tmprs = ExecSql("select distinct 模版名称 from 模版 ")
Do Until tmprs.EOF
Me.Combo1.AddItem tmprs.Fields(0).Value
tmprs.MoveNext
Loop
Call initForm
End Sub
|
<责任编辑：计算机毕业设计网(http://www.xiaoniu168.com)>