首先确认你已经把值保存到了注册表中msgbox(Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP", "姓名",""))
Dim dr1 As Table = Tables("用户注册信息表")
If dr1.Rows.Count=0 Then
Dim dr As Row = dr1.AddNew
dr("姓名")= Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP", "姓名","")
dr("电话") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP", "电话" ,"")
dr("公司名称") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP", "名称" ,"")
dr("公司地址") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP","地址" ,"")
End If