.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编辑过]
加好友 
发短信
Post By：2017/5/2 16:41:00 [只看该作者]
