主题：输入后变空格

贴出开发者密码，或者贴出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

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

 

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