Code
'填充未出条的预约信息列表
Sub tianchongYYXX()
Me.YYListView.Items.Clear() 'Listview项清除
Me.YYListView.Columns.Clear()
Dim n As Integer = 0
Dim leng As Integer = 0
'添加TD_all的列
Me.YYListView.Columns.Add("预约编号")
Me.YYListView.Columns.Add("门条编号")
Me.YYListView.Columns.Add("访客e5m号")
Me.YYListView.Columns.Add("被访人e5m号")
Me.YYListView.Columns.Add("访客类别")
Me.YYListView.Columns.Add("访客姓名")
Me.YYListView.Columns.Add("访客性别")
Me.YYListView.Columns.Add("身份证号")
Me.YYListView.Columns.Add("随行车辆")
Me.YYListView.Columns.Add("随行人数")
Me.YYListView.Columns.Add("门条类型")
Me.YYListView.Columns.Add("预约时间")
Me.YYListView.Columns.Add("到访时间")
Me.YYListView.Columns.Add("有效期至")
leng = Me.YYListView.Columns.Count
For n = 0 To leng - 1
Me.YYListView.Columns.Item(n).Width = 70
Next
'设置ListView的一系列属性
YYListView.FullRowSelect = True '选中的是一行,并是不一个数据项
YYListView.GridLines = True '显示行与行之间的分隔线
YYListView.Scrollable = True '需要时候显示滚动条
''获得DataSet
Dim sqlstr As String = "select M_ID,M_Stype_Name,Dating_Infro.*,lgIDimage from Dating_Infro,Mentiao_Infro,Mentiao_Stype,TB_USER_INFOR where Dating_Infro.D_ID=Mentiao_Infro.D_ID and Mentiao_Stype.M_Stype_ID=MenTiao_Infro.M_Stype_ID and UID=Dating_Infro.FK_e5m "
Dim dbobject As DataBase = New DataBase(0) '自定义的数据库操作类
allYYXX = dbobject.returnDS(sqlstr) '自定义的数据库操作类返回一个DataSet
''添加的行
leng = allYYXX.Tables(0).Rows.Count
For n = 0 To leng - 1
Dim lvite As ListViewItem = New ListViewItem
lvite.Text = allYYXX.Tables(0).Rows(n).Item("D_ID").ToString
lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("M_ID").ToString)
lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("FK_e5m").ToString)
lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("BF_e5m").ToString)
lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("FK_Stype").ToString)
lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("FK_Name").ToString)
lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("FK_Sex").ToString)
lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("FK_IDNumber").ToString)
lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("EntourageCar").ToString)
lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("EntourageCount").ToString)
lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("M_Stype_Name").ToString)
lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("YY_DateTime").ToString)
lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("Dating_DateTime").ToString)
Me.YYListView.Items.Add(lvite)
Next
'选中第一行
If Me.YYListView.Items.Count <> 0 Then
Me.YYListView.Items(0).Selected = True
End If
End Sub
'填充未出条的预约信息列表
Sub tianchongYYXX()
Me.YYListView.Items.Clear() 'Listview项清除
Me.YYListView.Columns.Clear()
Dim n As Integer = 0
Dim leng As Integer = 0
'添加TD_all的列
Me.YYListView.Columns.Add("预约编号")
Me.YYListView.Columns.Add("门条编号")
Me.YYListView.Columns.Add("访客e5m号")
Me.YYListView.Columns.Add("被访人e5m号")
Me.YYListView.Columns.Add("访客类别")
Me.YYListView.Columns.Add("访客姓名")
Me.YYListView.Columns.Add("访客性别")
Me.YYListView.Columns.Add("身份证号")
Me.YYListView.Columns.Add("随行车辆")
Me.YYListView.Columns.Add("随行人数")
Me.YYListView.Columns.Add("门条类型")
Me.YYListView.Columns.Add("预约时间")
Me.YYListView.Columns.Add("到访时间")
Me.YYListView.Columns.Add("有效期至")
leng = Me.YYListView.Columns.Count
For n = 0 To leng - 1
Me.YYListView.Columns.Item(n).Width = 70
Next
'设置ListView的一系列属性
YYListView.FullRowSelect = True '选中的是一行,并是不一个数据项
YYListView.GridLines = True '显示行与行之间的分隔线
YYListView.Scrollable = True '需要时候显示滚动条
''获得DataSet
Dim sqlstr As String = "select M_ID,M_Stype_Name,Dating_Infro.*,lgIDimage from Dating_Infro,Mentiao_Infro,Mentiao_Stype,TB_USER_INFOR where Dating_Infro.D_ID=Mentiao_Infro.D_ID and Mentiao_Stype.M_Stype_ID=MenTiao_Infro.M_Stype_ID and UID=Dating_Infro.FK_e5m "
Dim dbobject As DataBase = New DataBase(0) '自定义的数据库操作类
allYYXX = dbobject.returnDS(sqlstr) '自定义的数据库操作类返回一个DataSet
''添加的行
leng = allYYXX.Tables(0).Rows.Count
For n = 0 To leng - 1
Dim lvite As ListViewItem = New ListViewItem
lvite.Text = allYYXX.Tables(0).Rows(n).Item("D_ID").ToString
lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("M_ID").ToString)
lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("FK_e5m").ToString)
lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("BF_e5m").ToString)
lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("FK_Stype").ToString)
lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("FK_Name").ToString)
lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("FK_Sex").ToString)
lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("FK_IDNumber").ToString)
lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("EntourageCar").ToString)
lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("EntourageCount").ToString)
lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("M_Stype_Name").ToString)
lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("YY_DateTime").ToString)
lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("Dating_DateTime").ToString)
Me.YYListView.Items.Add(lvite)
Next
'选中第一行
If Me.YYListView.Items.Count <> 0 Then
Me.YYListView.Items(0).Selected = True
End If
End Sub