| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 代码错误 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=96151) |
| -- 作者：feng1999 -- 发布时间：2017/2/14 12:49:00 -- 代码错误 老师，您好，我想通过代码实现关联，在CurrentChanged中编写的代码如下所示：但是实现不了关联的作用，请老师帮忙指正，谢谢！ If e.Table.Current Is Nothing Then Return End If Dim dr1 As DataRow = Tables("电池").Current.DataRow Dim dr2 As DataRow Dim exp As String = CExp("[材料代号] = \'{0}\'", dr1("材料代号")) dr2 = DataTables("电池检验记录").Find(exp) |
| -- 作者：有点色 -- 发布时间：2017/2/14 13:19:00 -- 参考
http://www.foxtable.com/webhelp/scr/2490.htm
http://www.foxtable.com/webhelp/scr/2631.htm
|