以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于修改数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132060)
--  作者：裴保民
--  发布时间：2019/3/13 3:09:00
--  关于修改数据
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","公司地址" ,"")
看看代码哪错了，怎么不添加数据呢？
--  作者：有点甜
--  发布时间：2019/3/13 9:03:00
--  

代码没问题，是不是你做了筛选？不显示行？

 

具体做个实例发上来测试。
--  作者：裴保民
--  发布时间：2019/3/13 9:05:00
--  
Dim dr1 As DataTable = DataTables("注册用户信息表")
If dr1.dataRows.Count=0 Then
    Dim dr As DataRow = dr1.AddNew
    dr("ID") = 1
    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

运行后如果是刚启动程序时弹出需要注册的窗体注册后注册也成功了为什么数据库中还是没有数据呢？
强制进入程序打开注册对话框注册后数据库中就有数据，是什么原因呢？

[此贴子已经被作者于2019/3/13 9:07:16编辑过]
--  作者：有点甜
--  发布时间：2019/3/13 10:48:00
--  

注册的时候，注册成功了，你要往数据库里面添加数据啊。数据从你输入的窗口里面获取啊，不是在注册表那里获取啊。

 

而且，你要把窗口里的数据，写入到注册表里面啊。