主题：[求助]根据车间工价输入车间

DataColChanged事件

Dim nms() As String = {"横机","半圆机","一","二","三","定型","四","五","手缝","整烫","四包","五包","六","七"}
If array.Indexof(nms, e.DataCol.name) >= 0 Then
    Dim r As DataRow = e.DataRow
    Dim str As String = ""
    For Each c As String In nms
        If r.IsNull(c) = False Then
            str &= c & "."
        End If
    Next
    e.DataRow("生产车间")=str.trim(".")
End If