module1

来自「对个人信息进行详细的登记」· 代码 · 共 41 行

Attribute VB_Name = "Module1"
Option Explicit
  '定义SQL初始语句
  Public SQLoriginal As String
  '定义SQL添加语句
  Public SQLadd As String
  '定义SQL排序语句
  Public SQLorder As String
  
Public Sub ListRefresh()
  Dim i As Integer
  '清空所有文本
  For i = 0 To 8
 frmDataMP.Text1(i).Text = ""
  Next i
  '清空列表框
 frmDataMP.List1.Clear
  '出错判断
  If Not frmDataMP.Data1.Recordset.EOF Then
   '测量表中记录数目
   frmDataMP.Data1.Recordset.MoveLast
   frmDataMP.Data1.Recordset.MoveFirst
   For i = 1 To frmDataMP.Data1.Recordset.RecordCount
    frmDataMP.List1.AddItem frmDataMP.Data1.Recordset.Fields("Name")
     frmDataMP.Data1.Recordset.MoveNext
   Next i
   '把数据表当前记录位置复原
   frmDataMP.Data1.Recordset.MoveFirst
  End If
    
  frmDataMP.Text1(0).Text = frmDataMP.Data1.Recordset.Fields("Name")
  frmDataMP.Text1(1).Text = frmDataMP.Data1.Recordset.Fields("Sex")
  frmDataMP.Text1(2).Text = frmDataMP.Data1.Recordset.Fields("Year")
  frmDataMP.Text1(3).Text = frmDataMP.Data1.Recordset.Fields("Address")
  frmDataMP.Text1(4).Text = frmDataMP.Data1.Recordset.Fields("TelepNo")
  frmDataMP.Text1(5).Text = frmDataMP.Data1.Recordset.Fields("Call")
  frmDataMP.Text1(6).Text = frmDataMP.Data1.Recordset.Fields("Fax")
  frmDataMP.Text1(7).Text = frmDataMP.Data1.Recordset.Fields("Email")
  frmDataMP.Text1(8).Text = frmDataMP.Data1.Recordset.Fields("Appendix")
End Sub