主题：如何从关联表中生成列表项目

参考 http://www.foxtable.com/help/topics/1459.htm

prepareEdit事件这样写，

If e.IsFocusCell
    If e.Col.Name = "分析方法" Then
        e.Col.Combolist = DataTables("标准方法").GetComboListString("检测标准", "[检测项目] = '" & e.Row("分析项目") & "'")
    Else If e.Col.name = "仪器名称" Then
        Dim fdr As DataRow = DataTables("标准方法").find("[检测项目] = '" & e.Row("分析项目") & "' And 检测标准 = '" & e.Row("分析方法") & "'")
        If fdr IsNot Nothing Then
            e.Col.Combolist = DataTables("设备").GetComboListString("设备名称", "适用仪器 = '" & fdr("适用仪器") & "'")
        End If
       
    End If
End If

datacolchanged事件，根据设备名称取得设备编号有歧义，因为名称有同名的情况。

不能，要做，参考下拉窗口的做法

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