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
运行后如果是刚启动程序时弹出需要注册的窗体注册后注册也成功了为什么数据库中还是没有数据呢？
强制进入程序打开注册对话框注册后数据库中就有数据，是什么原因呢？
加好友 
发短信
Post By：2019/3/13 3:09:00 [显示全部帖子]
