|
以下是引用片段：
Public Sub UpdateList()
'显示列表的样式和标题
'将查询到的人口信息显示在列表中
'1
Dim arrName()
arrName = Array("人口代码", "人口名称", "身份证号", "性别", "年龄", "民族", "与户主关系", "户口状况", "街巷名称", "职业", "服务处所", "文化程度", "家庭状况", "经济状况", "宗教信仰", "备注")
Dim arrColwidth()
arrColwidth = Array(0, 1000, 1000, 1000, 1000, 1000, 1000, 1000, 1000, 1000, 1000, 1000, 1000, 1000, 1000, 1000)
ddd.Cols = 16
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 = 31
Call UpdateDDD(ddd, ExecSql("select 人口代码,人口名称,身份证号,性别,年龄,民族,与户主关系,户口状况,街巷名称,职业,服务处所,文化程度,家庭状况,经济状况,宗教信仰,备注 from 人口信息"))
End Sub
|