- 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=50045)
-- 发布时间：2014/4/28 15:32:00
-- 已添加相同键
查询窗体预览弹出提示框 “已添加相同键”，另一个提示是字符串到IN*g的类型不对，查看都是单精度数值啊一样的啊
这两个是怎么回事？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:石材.table |
-- 发布时间：2014/4/28 15:44:00
--
先把无关的东西去掉,保留有问题的表.
-- 发布时间：2014/4/28 15:57:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:相同键.table |
-- 发布时间：2014/4/28 15:59:00
--
你这查询窗体还是一堆东西啊
-- 发布时间：2014/4/28 16:09:00
--
没做过例子不知道，还以为只要直接上传就行了
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:相同键.table |
-- 发布时间：2014/4/28 16:22:00
--
ok，窗口有些小问题，改回来就好了。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:石材 (3).table |
-- 发布时间：2014/4/28 16:29:00
--
是什么原因引起“添加相同键”问题？？
-- 发布时间：2014/4/28 16:30:00
--
你显示列哪里设置有问题 发货日期|75|客户|75|发货单号|75|品种|60|厚度|60|是否规格板|75 || 多了两个竖杠
-- 发布时间：2014/4/28 16:38:00
--
以下是引用yihuawen在2014-4-28 16:29:00的发言：
是什么原因引起“添加相同键”问题？？
应该是foxtable自己的原因，存储了多余的副本，和窗口的内容不匹配。改一下table控件的名字，再改回来，就行了。
-- 发布时间：2014/4/28 16:43:00
--
Dim flt As String = "1 = 1"
Dim t As Table = Tables("石材信息表")
For Each s As String In "品种|厚度|是否规格板".Split("|")
If e.Form.Controls(s).Value <> Nothing Then
If t.Cols(s).IsNumeric Then
flt + = " And " & t.Cols(s).Name & " = " & e.Form.Controls(s).Value
Else
flt + = " And " & t.Cols(s).Name & " = \'" & e.Form.Controls(s).Value & "\'"
End If
End If
Next
If e.Form.Controls("编号").Value = Nothing Then
t.Filter = flt
Else
t.Filter = flt & " And 编号 Like \'*" & e.Form.Controls("编号").Value & "*\'"
End If