以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  赋值问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=99997)
--  作者：zoyong
--  发布时间：2017/5/2 16:41:00
--  赋值问题
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2017.4.22.1
错误所在事件：窗口,项目资料上传,招标文件,Click
详细错误信息：
无法将类型为“System.String”的对象强制转换为类型“Foxtable.DataRow”。


原码
Dim hz As String = dlg.FileName.SubString(xg)
    Dim fp As String = "\\工程管理"
    Dim ftpName As String = fp & "\\" & Tables("项目资料").Current("年份") & "\\" & Tables("项目资料").Current("档案编号") & hz      \'保存路径
    If ftp.Upload(dlg.FileName,ftpname) = True Then
        Dim sz As Date = ftp.GetFileTime(ftpName)
        ftp.Rename(ftpName, fp & "\\"  & Tables("项目资料").Current("年份") & "\\" & Tables("项目资料").Current("档案编号")  & "\\" &  Format(sz, "招标文件"  &  "-"   &   Tables("项目资料").Current("项目名称")  &  "yyyyMMddHHmmss") & _userName & hz )
        Messagebox.show("文件上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Dim dr As DataRow =  fp & "\\"  & Tables("项目资料").Current("年份") & "\\" & Tables("项目资料").Current("档案编号")  & "\\" &  Format(sz, "招标文件"  &  "-"   &   Tables("项目资料").Current("项目名称")  &  "yyyyMMddHHmmss") & _userName & hz 
    e.form.controls("TextBox1").text= dr("工程管理")
    Else
        Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End If


红色代码出问题，求大神修改
理想格式路径为：\\项目资料\\年份\\档案编号\\...文件名

1.窗口中TextBox1绑定项目资料中工程管理列
2.将dr的数据赋值到工程管理列中
[此贴子已经被作者于2017/5/2 17:03:23编辑过]
--  作者：有点色
--  发布时间：2017/5/2 17:31:00
--  
Dim str As String =  fp & "\\"  & Tables("项目资料").Current("年份") & "\\" & Tables("项目资料").Current("档案编号")  & "\\" &  Format(sz, "招标文件"  &  "-"   &   Tables("项目资料").Current("项目名称")  &  "yyyyMMddHHmmss") & _userName & hz
msgbox(str)
Tables("项目资料").Current("工程管理") = str