请老师指正:在用ListView容器中显示筛选后的数据,双击选中行或单击修改按钮后提示错误,请问老师如何修改代码?按钮代码如下:
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim vr As WinForm.ListViewRow = lvw.Current '获取ListView的当前行
If vr Is Nothing Then '如果不存在当前行,也就是内有选定任何一行
Return
End If
Dim dr As DataRow = vr.tag '获取此行对应的DataRow
Dim ps As Integer = Tables("高血压糖尿病老年人的随访个体化健康教育活动记录表").FindRow(dr)
If ps >= 0 Then
Tables("高血压糖尿病老年人的随访个体化健康教育活动记录表").Position = ps
Forms("慢病随访个体化窗口三").Open
For Each cl As WinForm.ListViewColumn In lvw.Columns '逐列更新值
vr(cl.Name) = dr(cl.Name)
Next
End If
错误提示如下:
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2020.4.19.8
错误所在事件:窗口,随访个体化健康教育记录表三,btnEdit,Click
详细错误信息:
无法将类型为“Foxtable.Row”的对象强制转换为类型“Foxtable.DataRow”。
[此贴子已经被作者于2022/6/16 15:07:11编辑过]