- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]智能输入 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=35159)
-- 发布时间：2013/6/25 11:54:00
-- [求助]智能输入
菜鸟学习建库，请高手指教
上传的项目中，
1：“卡号”自动生成问题。自动生成卡号规则：库位代码+物质代码+规格+产地代码+"/"+货主代码
2：库存表中的“型号”智能录入问题。 按照“库存表”中“物质名称”从“理论重量表”中选取对应的“型号”
个人感觉其实这两个问题是同样的问题，就是根据条件怎么引用另外一个数据表中对应数据问题，但是老是弄不好。。。。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2013/6/25 12:05:00
--
参考帮助
-- 发布时间：2013/6/25 12:31:00
--
写代码啊。。。。，超版能帮我写好我看下么，我写了老是错误
-- 发布时间：2013/6/25 12:57:00
--
1、帮你写好了。
2、自己做一下。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目917.table |
-- 发布时间：2013/6/25 13:50:00
--
If e.DataCol.Name = "型号" Then
If e.NewValue Is Nothing Then
e.DataRow("规格") = Nothing
Else
Dim dr As DataRow
dr = DataTables("理论重量表").Find("[型号] = \'" & e.NewValue & "\'")
If dr IsNot Nothing Then
e.DataRow("规格") = dr("规格尺寸")
End If
End If
End If
这段代码用来实现库存表中型号改变以后自动从理论重量表中取对应规格尺寸填充到库存表的规格列，可以么？
-- 发布时间：2013/6/25 14:26:00
--
可以
-- 发布时间：2013/6/25 14:56:00
--
重新增加记录了，确定所有项目都填写了，卡号还是不能生成，是版本问题吗？
找到原因了。。。。。。。只要把你的代码复制到原来我自己的项目里去就可以了。。。。
直接下载你的项目在我的机器上运行不了。。。。。。。。。。
[此贴子已经被作者于2013-6-25 15:29:31编辑过]