主题：[求助]窗口中的数据平均分配

当然可以实现了，参考代码：

Dim sz As Double = e.form.controls("录入数据").Value
Dim r As Row = Tables("XXX").Current
If sz <> 0 And r IsNot Nothing
    Dim n As Integer = 0
    Dim pjs As String
    For i As Integer = 1 To 4
        Dim kj As String = "RadioButton"+Cstr(i)
        If  e.Form.Controls(kj).Checked = True
            n = n +1
            If pjs > ""
                pjs = pjs + "|" + e.Form.Controls(kj).Text
            Else
                pjs = e.Form.Controls(kj).Text
            End If
        End If
    Next
   
    If n > 0
        Dim m As Double = sz/n
        For Each   pj As String In pjs.Split("|")
            r(pj) = r(pj) + m
        Next
    End If
End If