- 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=116266)
-- 发布时间：2018/3/22 0:04:00
-- [求助]多选输入
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1_201803220001.zip |
想要从 产品表 多选产品输入 代码怎么写
-- 发布时间：2018/3/22 9:25:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2018/3/22 12:44:00
--
每次增加产品的时候 上次的多选框都还在 怎么样 取消
-- 发布时间：2018/3/22 14:39:00
--
以下是引用q2520在2018/3/22 12:44:00的发言：
每次增加产品的时候 上次的多选框都还在 怎么样 取消
每次增加产品的时候 上次的多选框都还在 怎么样 取消
窗口AfterLoad事件，写代码
DataTables("产品").Replacefor("选择", False)
http://www.foxtable.com/webhelp/scr/1532.htm
-- 发布时间：2018/3/26 8:01:00
--
Select Case e.DataCol.name
Case "编号"
Dim dr As DataRow = DataTables("产品").Find("编号 = \'" & e.OldValue & "\'")
If dr Is Nothing Then
dr = DataTables("库存").AddNew()
dr("编号") = e.DataRow("编号")
dr("名称") = e.DataRow("名称")
dr("规格") = e.DataRow("规格")
\'dr("类别") = e.DataRow("类别")
\'dr("型号") = e.DataRow("型号")
Else
dr("编号") = e.DataRow("编号")
End If
Case "名称","规格"
Dim dr As DataRow = DataTables("库存").Find("编号 = \'" & e.DataRow("编号") & "\'")
If dr IsNot Nothing Then
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If
End Select
怎么样可以 让库存表里 已经有的产品 不在重复增加
-- 发布时间：2018/3/26 8:54:00
--
5楼代码有什么问题？如果编号重复的，是不会重复增加的。
-- 发布时间：2018/3/26 10:11:00
--
[此贴子已经被作者于2018/3/26 10:33:03编辑过]
-- 发布时间：2018/3/26 10:40:00
--
以下是引用q2520在2018/3/26 10:11:00的发言：
[此贴子已经被作者于2018/3/26 10:33:03编辑过]
你想表达什么，如果还有问题，请具体说明。
-- 发布时间：2018/3/26 10:47:00
--
这个没问题了 有一个新问题
扩展的多文件列 可以设置权限吗 里面的文件只能看不能修改
-- 发布时间：2018/3/26 11:32:00
--
以下是引用q2520在2018/3/26 10:47:00的发言：
这个没问题了 有一个新问题
这个没问题了 有一个新问题
扩展的多文件列 可以设置权限吗 里面的文件只能看不能修改
BeforeOpenFile事件，写代码
If e.DataCol.name = "产品" Then
Dim path = e.DataCol.DefaultFolder
If path = Nothing Then path = ProjectPath & "attachments/"
Dim ifo As new fileinfo(path & e.FileName)
ifo.ReadOnly = True
End If