以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]读写注册表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=96884)
--  作者：yupeng
--  发布时间：2017/3/1 16:43:00
--  [求助]读写注册表

Dim klk As String = Registry.GetValue("HKEY_CURRENT_USER\\Software\\MyApp","Klk1","") 
Tables("Kf").SetColVisibleWidth(klk)

 

老师  您好

这段代码，在没有向注册表写入值时，会出错，我要怎样写个判断。谢谢
--  作者：有点色
--  发布时间：2017/3/1 17:42:00
--  
Dim klk As String = Registry.GetValue("HKEY_CURRENT_USER\\Software\\MyApp","Klk1","")
If klk > "" Then
    Tables("Kf").SetColVisibleWidth(klk)
End If
--  作者：yupeng
--  发布时间：2017/3/2 0:40:00
--  
谢谢 老师