主题：返回值

先判断是否执行：

Dim xm As WinForm.ComboBox = e.Form.Controls("姓名")
If xm.Value = "" Then
    xm.Value = User.Name
    messagbeox.show("设置了姓名:" & user.name)
End If
Dim bm As WinForm.ComboBox = e.Form.Controls("部门")
If bm.Value = "" Then
    Dim rgb As DataRow = DataTables("员工表").Find("姓名 = '" & User.Name & "'")
    If rgb IsNot Nothing
        bm.Value = rgb("部门")
            messagbeox.show("部门:" & bm.value)
    End If
End If

如果执行了还是不行，那么可能是你这个输入框可能绑定到某列了吧，如果绑定了，就不能直接设置其值：

http://www.foxtable.com/help/topics/2436.htm

你这种情况应该是不需要绑定的