主题：如何判断单元格有几组数据，然后自动输入比例

'datacolchanged事件

select case e.datacol.name

case "减合格工序"

if e.newvalue isnot nothing then

dim gxs as string = e.newvalue

if gxs.contains(",") then

Dim bl As String
For i As Integer = 0 To gxs.Split(",").Length - 1
    bl = bl & ",1"
Next
e.datarow("比例1") = bl.Trim(",")

else

e.datarow("比例1") = "1"

end if

end if

end select

大概如此，未经测试，楼主可亲自试验一下。