就一句话，变量使用前一定先定义。
创新互联建站主营商州网站建设的网络公司,主营网站建设方案,app软件开发公司,商州h5成都微信小程序搭建,商州网站营销推广欢迎商州等地区企业咨询
可以在选项里设置强制类型声明，避免出现上面的问题。
没有将引用设置到对象的实例！
你的 Me.DataGridView1 或者 Me.DataGridView1.CurrentRow 可能是个空引用
所以在用它之前先判断一下 他是不是nothing
如下代码：
if me.datagridview1.currentrow isnot nothing then
'这里是你的语句
end if
PDA.UI.PubLib.CEDBLayer()
问题可能在这里面有的组件没有引用进来，就是对象有问题，PDA可能就是空的
这个是个警告，如果不负责任点的话其实可以忽略不管的。
之所以提示这个警告是因为你没有对myRow进行初始化。你可以这么定义myRow，这样就不会出现警告了。
Dim dt As DataTable = New DataTable()
dt.Columns.Add("姓名")
dt.Columns.Add("性别")
dt.Columns.Add("年龄")
dt.Columns.Add("联系方式")
dt.Columns.Add("身份证号")
dt.Columns.Add("所选科室")
dt.Columns.Add("所选医生等级")
dt.Columns.Add("病人状态")
Dim myRow As DataRow = dt.NewRow()
上面只是个简单的例子，你可以从DataTable里创建新的DataRow对象。
至于第二个问题的话你没有提供给我异常详情或者截图，在下无能为力。