|
以下是引用片段：
其主要代码实现如下：
Public Sub QueryTable()
'显示列表的样式和标题
'将查询到的信息显示在列表中
'1
Dim arrName()
arrName = Array("客户登记编号", "登记日期", "接待人员", "客户名称", "联系手机", "固定电话", "所属区域", "意向楼层", "所属房型", "最小建筑面积", "意向总价", "付款方式", "装修情况")
Dim i As Long
ReDim arrColwidth(UBound(arrName)) As String
For i = 0 To UBound(arrColwidth)
If i = 0 Then
arrColwidth(i) = 0
Else
arrColwidth(i) = 1300
End If
Next
Me.ddd.Cols = UBound(arrName) + 1
ddd.Rows = 2
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, GetSql("SELECT 客户登记.客户登记编号, 客户登记.登记日期, 客户登记.接待人员, 客户登记.客户名称, 客户登记.联系手机, 客户登记.固定电话, 区域.区域名称, 客户登记.意向楼层, 房型.房型名称, 客户登记.最小建筑面积, 客户登记.意向总价, 客户登记.付款方式, 客户登记.装修情况 FROM (客户登记 INNER JOIN 区域 ON 客户登记.区域编号 = 区域.区域编号) INNER JOIN 房型 ON 客户登记.房型编号 = 房型.房型编号 where 客户登记.登记日期>=#" & Me.DTPicker1.Value & "# and 客户登记.登记日期<=#" & Me.DTPicker2.Value & "# and 客户登记.客户名称 like '%" & Me.Text1(1).Text & "%'"))
End Sub
|