主题：如何在表中插入按钮列。点击每行中的按钮查看操作明细。谢谢各位专家，尤其是大红袍

在表的doubleclick事件中加入：

If e.Col.name = "fjmx"  Then
    MessageBox.Show("ok1")
    Forms("复检明细").Open()
 MessageBox.Show("ok2")

 End  If

为什么弹不开窗口？

ok1和ok2都执行了。就是窗口没有弹开，也不抛异常。

大红袍专家，第一行msgbox(e.Col.Name)是fjmx

两个ok都弹出了。

好的。谢谢大红袍！！

列宽怎么调整？

If DataTables("TestProducts").DataCols.Contains("fjmx") = False Then
    DataTables("TestProducts").DataCols.Add("fjmx",Gettype(String),43)
     Tables("TestProducts").Cols("fjmx").Width = 43
    Tables("TestProducts").Cols("fjmx").Move(0)
 End  If

怎么不起作用？？？？

再次谢谢大红袍专家，怎么能点击一个按钮的同时，传参数给弹开的窗口，弹窗根据参数直接显示记录？