Dim dr1 As DataRow
DataTables("注册用户信息表").DataRows.Clear
dr1 = DataTables("注册用户信息表").AddNew
dr1("ID") = 1
dr1("用户姓名")= Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP", "用户姓名","")
dr1("联系电话") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP", "联系电话" ,"")
dr1("公司名称") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP", "公司名称" ,"")
dr1("公司地址") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP","公司地址" ,"")
看看代码哪错了,怎么不添加数据呢?