专家坐堂-输入后变空格Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  输入后变空格  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=129878)

--  作者：宁老师SQE
--  发布时间：2019/1/8 8:12:00
--  输入后变空格

此主题相关图片如下：360截图16280716265369.png

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:丹东恒锐2.table

此主题相关图片如下：360截图16520824746784.png

[此贴子已经被作者于2019/1/8 8:12:55编辑过]

--  作者：有点甜
--  发布时间：2019/1/8 9:19:00
--
贴出开发者密码，或者贴出datacolchanged等事件代码。

--  作者：宁老师SQE
--  发布时间：2019/1/8 16:04:00
--

If e.DataCol.Name = "产品代号" OrElse e.DataCol.Name = "供应商" Then
Dim Filter As String
If e.DataRow("供应商") = Nothing Then
Filter = "[产品代号] = \'" & e.DataRow("产品代号") & "\' And [开发关闭] = True "
Else
Filter = "[产品代号] = \'" & e.DataRow("产品代号") & "\' And [供应商] = \'" & e.DataRow("供应商") & "\' And [开发关闭] = True "
End If
Dim drs = DataTables("新产品开发阶段表").Select(Filter) \'在行政区域表查找所输入省市和县市的行
If drs.count = 1 Then \'
e.DataRow("供应商") = drs(0)("供应商")
e.DataRow("供应商联系人") = drs(0)("供应商联系人")
e.DataRow("联系电话") = drs(0)("供应商联系电话")
e.DataRow("供应商_铸造价格") = drs(0)("产品单价_铸造价格")
e.DataRow("供应商_加工价格") = drs(0)("产品单价_加工价格")
e.DataRow("供应商管理SQE") = drs(0)("供应商管理SQE")
e.DataRow("检验人员") = drs(0)("检验人员")
Else
e.DataRow("供应商") = Nothing
e.DataRow("供应商联系人") = Nothing
e.DataRow("联系电话") = Nothing
e.DataRow("供应商_铸造价格") = Nothing
e.DataRow("供应商_加工价格") = Nothing
e.DataRow("供应商管理SQE") = Nothing
e.DataRow("检验人员") = Nothing
End If
End If

--  作者：有点甜
--  发布时间：2019/1/8 16:29:00
--

这段代码删除

Else

e.DataRow("供应商") = Nothing

e.DataRow("供应商联系人") = Nothing

e.DataRow("联系电话") = Nothing

e.DataRow("供应商_铸造价格") = Nothing

e.DataRow("供应商_加工价格") = Nothing

e.DataRow("供应商管理SQE") = Nothing

e.DataRow("检验人员") = Nothing

--  作者：宁老师SQE
--  发布时间：2019/1/8 17:04:00
--
不好使啊
还跟前面一样还是选择吉林大华（开发表他就是一个负责人）能够直接输入供应商名称和负责人
选择丹东隆盛（开发表中他是两个负责人）就只能输入供应商名称而负责人无法选择

--  作者：有点甜
--  发布时间：2019/1/8 17:09:00
--

那你就改成

If e.DataCol.Name = "产品代号" OrElse e.DataCol.Name = "供应商"   Then
    Dim Filter As String
    If e.DataRow("供应商") = Nothing Then
        Filter = "[产品代号] = \'" & e.DataRow("产品代号") & "\' And [开发关闭] = True "
    Else
        Filter = "[产品代号] = \'" & e.DataRow("产品代号") & "\' And [供应商] = \'" & e.DataRow("供应商") & "\' And [开发关闭] = True "
    End If
    Dim drs = DataTables("新产品开发阶段表").Select(Filter) \'在行政区域表查找所输入省市和县市的行
    If drs.count >= 1 Then \'
        e.DataRow("供应商") = drs(0)("供应商")
        Dim lxr As String = ""
        Dim lxrdh As String = ""
        For Each dr As DataRow In drs
            lxr &= dr("供应商联系人") & ","
            lxrdh &= dr("供应商联系电话") & ","
        Next
        e.DataRow("供应商联系人") = lxr
        e.DataRow("联系电话") = lxrdh
        e.DataRow("供应商_铸造价格") = drs(0)("产品单价_铸造价格")
        e.DataRow("供应商_加工价格") = drs(0)("产品单价_加工价格")
        e.DataRow("供应商管理SQE") = drs(0)("供应商管理SQE")
        e.DataRow("检验人员") = drs(0)("检验人员")

    End If
End If

--  作者：宁老师SQE
--  发布时间：2019/1/8 19:27:00
--

此主题相关图片如下：qq截图20190108192330.png

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:丹东恒锐2.table

密码 890723
[此贴子已经被作者于2019/1/8 19:27:54编辑过]

--  作者：有点蓝
--  发布时间：2019/1/8 22:02:00
--
哪个表，怎么测试会有问题？

--  作者：宁老师SQE
--  发布时间：2019/1/9 7:05:00
--
供应商管理表联系电话列
因为其他表都是在这引用的所以不知道怎么一输入电话号码就死机了

--  作者：有点甜
--  发布时间：2019/1/9 9:07:00
--

改成双精度小数或者高精度小数或者字符列。

整数列，有输入的值的大小的限制的。