以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 当前窗体加载SQL table表 有table1 table2 窗体打开后就自动定位到saltable表table1的第一行 然后去查找table2中符合uuid的行,如有就下载对应的附件 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=177308) |
-- 作者:cnsjroom -- 发布时间:2022/5/17 12:53:00 -- 当前窗体加载SQL table表 有table1 table2 窗体打开后就自动定位到saltable表table1的第一行 然后去查找table2中符合uuid的行,如有就下载对应的附件 当前窗体加载SQL table表 有table1 table2 窗体打开后就自动定位到saltable表table1的第一行 然后去查找table2中符合uuid的行,如有就下载对应的附件 红色部分代码运行提示无法将类型为“System.Int32”的对象强制转换为类型“Foxtable.Row” 如果改成 Dim bb As Integer = Tables(e.form.name & "_table2").Findrow("uuid=\'" & Tables(e.form.name & "_table1").Current("uuid") & "\'") 不报错,但是没有达到预期效果。
有没有办法修正,并实现后续代码的类似运行。
.NET Framework 版本:4.0.30319.42000
代码内容:【尽管报错,但是预期效果实现,有没有办法修正错误,预期效果不变】 Dim zs1 As Integer = Tables(e.form.name & "_table1").Count |
-- 作者:有点蓝 -- 发布时间:2022/5/17 13:43:00 -- If bb > -1 Then \'如果找到对应uuid的附件 Dim r As Row = Tables(e.form.name & "_table2").rows(bb) Dim dr As DataRow = r.DataRow Dim lst As List(of String) lst = dr.Lines("文件名") vars("文件名")=lst(0) Dim fl As String = ProjectPath & "下载文件\\第一行文件" & lst(0)
|