- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于自动录入的求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115607)
-- 发布时间：2018/3/9 23:57:00
-- 关于自动录入的求助
此主题相关图片如下：求助图片201803090001.png
如图中所示，我想在选择仓库的时候 完成自动录入对应仓库代码的工作，想知道这个程序段怎么添加，在哪里添加。T,.T
在table里没有事件可以添加的，
如果直接拖动字段对应的控件到窗口中可以完成这个操作，但是如果当前表没有数据，在窗口载入的时候就会出错，O.O 矛盾啊
-- 发布时间：2018/3/10 0:18:00
-- 啊 搞定了 O.O
摸索摸索着 就解决了 O.O
-- 发布时间：2018/3/10 0:19:00
--
如图
-- 发布时间：2018/3/10 0:20:00
--
传了两次图片都不见了 O.O
If e.Col.name="仓库代码"
Tables("仓库信息").Filter="仓库代码 =\'" & e.Row("仓库代码") & "\'"
If Tables("仓库信息").Rows.count=0
Exit Sub
Else
e.Row("收发仓库")=Tables("仓库信息").Rows(0)("仓库名称")
End If
End If
-- 发布时间：2018/3/10 9:08:00
--
不要这样用，参考：http://www.foxtable.com/help/scr/0625.htm
If e.DataCol.Name = "仓库代码" Then \'如果内容发生变动的是品名列
If e.NewValue Is Nothing Then \'如果新值是空白,也就是品名列的内容为空
e.DataRow("收发仓库") = Nothing \'那么清空此行单价列的内容
Else
Dim dr As DataRow
\'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
dr = DataTables("仓库信息").Find("[仓库代码] = \'" & e.NewValue & "\'")
If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
e.DataRow("收发仓库") = dr("仓库代码")
End If
End If
End If
If e.NewValue Is Nothing Then \'如果新值是空白,也就是品名列的内容为空
e.DataRow("收发仓库") = Nothing \'那么清空此行单价列的内容
Else
Dim dr As DataRow
\'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
dr = DataTables("仓库信息").Find("[仓库代码] = \'" & e.NewValue & "\'")
If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
e.DataRow("收发仓库") = dr("仓库代码")
End If
End If
End If
-- 发布时间：2018/3/11 12:01:00
-- 额哦 还是出问题了
此主题相关图片如下：求助图片201803110000001.png
还是出了点问题，就是新的数据为空的时候，在仓库代码那里会填入“仓库代码”这四个字 O.O
之前没用这个方法，是总是提示我row类型的问题，原来是要放到datacolchanged这里面 O.O 又学到一点 =.=
-- 发布时间：2018/3/11 20:24:00
--
回复6楼，参考
http://www.foxtable.com/webhelp/scr/1451.htm