- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]引用 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88491)
-- 发布时间：2016/8/3 17:43:00
-- [求助]引用
老师好
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:引用.table |
此主题相关图片如下：图像 1.png
-- 发布时间：2016/8/3 17:59:00
--
If e.DataCol.name = "特别号码" Then
If e.DataRow.IsNull("特别号码") Then
e.DataRow("信息提示") = Nothing
Else
Dim fdr As DataRow = DataTables("表a").find("特别号码 = \'" & e.DataRow("特别号码") & "\'")
If fdr IsNot Nothing Then
e.DataRow("信息提示") = "该承兑汇票在" & fdr("支付日期") & "已支付给" & fdr("供应商") & "了"
End If
End If
End If
-- 发布时间：2016/8/3 18:09:00
--
老师谢谢你！
-- 发布时间：2016/8/3 19:54:00
--
老师，图片列通过代码从表B引用到表A后怎样改变存放路径（I:\\票据管理\\应付款\\Attachments\\票据分类\\汇票"）
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:引用.table |
-- 发布时间：2016/8/3 20:03:00
--
不需要改变存放路径的啊，你存放路径属性那里直接设置成 I:\\票据管理\\应付款\\Attachments\\票据分类\\汇票 就行的啊。
-- 发布时间：2016/8/3 20:42:00
--
老师，我两个表的图片列的存放位置不同
-- 发布时间：2016/8/3 20:59:00
--
老师，我是要复制图片文件到另一个文件夹中
If e.DataCol.Name = "特别号码" Then
If e.NewValue Is Nothing Then
e.DataRow("图片") = Nothing
Else
Dim dr As DataRow
dr = DataTables("表B").Find("[特别号码] = \'" & e.NewValue & "\'")
If dr IsNot Nothing
e.DataRow("图片") = dr("图片")
End If
End If
End If
-- 发布时间：2016/8/3 22:05:00
--
复制文件，参考
http://www.foxtable.com/webhelp/scr/0342.htm
-- 发布时间：2016/8/4 6:35:00
--
以下是引用江南小城在2016/8/3 19:54:00的发言：
老师谢谢，帮我设置一下，我设置不好。
老师，图片列通过代码从表B引用到表A后怎样改变存放路径（I:\\票据管理\\应付款\\Attachments\\票据分类\\汇票"）
| 下载信息 [文件大小：296.0 KB 下载次数：1] | |
| 点击浏览该文件:引用.table |
-- 发布时间：2016/8/4 8:50:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:引用.table |