- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]引用 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=195881)
-- 发布时间：2025/3/17 21:48:00
-- [求助]引用
老师好，下面代码不能正确引用，谢谢老师帮忙修改。
If e.DataCol.Name = "层级" Then \'如果内容发生变动的是品名列
If e.NewValue Is Nothing Then \'如果新值是空白,也就是品名列的内容为空
e.DataRow("编码") = Nothing \'那么清空此行单价列的内容
Else
Dim dr3 As DataRow
\'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
dr3 = DataTables("信息表").Find("[层级] = \'" & e.NewValue & "\'")
If dr3 IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
e.DataRow("编码") = dr3("编码")
End If
End If
End If
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:列表项目.table |
此主题相关图片如下：2025-03-17 12 19 54.png
-- 发布时间：2025/3/17 22:08:00
--
没有数据库，看不到表格数据
试试
dr3 = DataTables("信息表").Find("[层级] = \'" & e.NewValue & "\' and 名称=\'" & e.DataRow("主体名称") &"\'")