module_刷新通讯录.bas

VB开发的一款简易个人通讯录

Attribute VB_Name = "Module_刷新通讯录"
Sub 刷新通讯录(ByVal frm As Form)


With frm
    
   .DataCombo分组.Text = .DataGrid1.Columns.Item("分组")
   .txt姓名.Text = .DataGrid1.Columns.Item("姓名")
   .DataCombo性别.Text = .DataGrid1.Columns.Item("性别")
   .txt固定电话.Text = .DataGrid1.Columns.Item("固定电话")
   .txt移动电话.Text = .DataGrid1.Columns.Item("移动电话")
   .txtemail.Text = .DataGrid1.Columns.Item("email")
   .txtqq.Text = .DataGrid1.Columns.Item("qq")
   .DataCombo省市名称.Text = .DataGrid1.Columns.Item("省市名称")
   .txt通讯地址.Text = .DataGrid1.Columns.Item("通讯地址")
End With

End Sub