主题：输入后变空格

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

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

点击浏览该文件:丹东恒锐2.table

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

贴出开发者密码，或者贴出datacolchanged等事件代码。

这段代码删除

 

不好使啊  

那你就改成

 

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

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

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

点击浏览该文件:丹东恒锐2.table

密码 890723

哪个表，怎么测试会有问题？

供应商管理表   联系电话列  

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

 

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