狐爸，您好！

有个关于控件Combolist和Button问题想请教一下您。我在做的是一个我公司自己用的MRP系统。在开发过程中发现有两个问题一直不得解。由于系统较大就不方便上传了，看看我能不能描述清楚。

1.Combolist问题：今天发现的，是工程更改模块上。我需要提取在其他表里的数据，提取后根据Combolist值同时自动填充当前行的相关列。这时候问题来了，能够下拉打开combolist，也能填充相关列。但是combolist控件的却是空白的，什么都没有。我是在afterload赋值的。填充数据是在ValueChanged事件。

2.Button问题：前段时间发现的。在库存调整模块。我希望打开窗口后这个按钮能够根据当前行的状态1/0置于可用或不可用状态。有三个按钮，其他两个可以，但是这个却怎么做都不行。一直Enabled = True.但是在CurrentRowChanged是可以的。

以上问题都是发生在窗口控件上，看起来代码一点问题也没有。重启Foxtable,重启OS都不行。我的OS是WIN7旗舰版，Foxtable是最新版开发版。不知道是否有其他坛友遇见到类似问题？

文字有点多，值得一提的是Foxtable确实很好用，开发系统非常快。谢谢！

你可以做个简单的例子发上来看看，保留少量测试数据。

关于ComboBOX的问题已经解决,也不知道为什么？

在控件的ValueChanged事件输入：

\'If e.Sender.Value <> "" Then
    \'Dim bomid As String = e.Sender.Value
    \'Dim dr As DataRow = DataTables("产品结构清单主文件").Find("物料清单编码 = \'" & bomid & "\'")
    \'If dr IsNot Nothing Then
        \'With Tb
            \'.Current("描述") = dr("产品描述")
            \'.Current("单位") = dr("计量单位")
            \'.Current("原版本") = dr("版本")
        \'End With
    \'End If
\'End If

在表事件DataColChanged输入则不会出现问题：

Select Case e.DataCol.Name
    Case "物料清单编码"
        If e.DataRow.IsNull("物料清单编码") Then
            MessageBox.Show("请输入物料清单编码!","提示")
            e.Cancel = True
        Else
            Dim dr As DataRow = DataTables("产品结构清单主文件").Find("物料清单编码 = \'" & e.DataRow("物料清单编码") & "\'")
            If dr IsNot Nothing Then
                e.DataRow("描述") = dr("产品描述")
                e.DataRow("单位") = dr("计量单位")
                e.DataRow("原版本") = dr("版本")
            End If
        End If
End Select