主题：已添加相同键

查询窗体预览弹出提示框 “已添加相同键”，另一个提示是字符串到IN*g的类型不对，查看都是单精度数值啊一样的啊

这两个是怎么回事？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:石材.table

先把无关的东西去掉,保留有问题的表.

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:相同键.table

你这查询窗体还是一堆东西啊

没做过例子不知道，还以为只要直接上传就行了

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:相同键.table

ok，窗口有些小问题，改回来就好了。

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:石材 (3).table

是什么原因引起“添加相同键”问题？？

 

你显示列哪里设置有问题 发货日期|75|客户|75|发货单号|75|品种|60|厚度|60|是否规格板|75 ||  多了两个竖杠

 

应该是foxtable自己的原因，存储了多余的副本，和窗口的内容不匹配。改一下table控件的名字，再改回来，就行了。

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