不明白说什么?如果组合框给列赋值代码是这样的!
Dim r As Row = Tables("表名").AddNewr("列名")=Forms("窗口2").Controls("控件名").Value