主题：请教如何判断所取值在列表项目中的位置

如何判断所取值在列表项目中的位置。

举例：

表A：有单位、科室、科室顺序  三列。

表B：有单位、科室名称  三列。

  科室名称为备注列，一个单位的所有科室名称均分行输入在科室名称列（各个单位都不一样），如：

       办公室

       会计室

       财务室

等

在表A的PrepareEdit 中写入相应代码，可以使得表A的“科室”列根据输入的单位及表B生成列表项目。

现在的要求是：根据“科室”列选择的内容，如“会计室”，在“科室顺序”列中填入该室在列表项目中的顺序，即2。

请教老师如何操作。

（通过将科室名称全部拆分成行，可以做到。但工作中因单位数太多，为了代码项目的输入方便，仍想将一个单位的科室列表项目输入在一个单元格中）

1、以后公司每增加一个部门或部门改名（比如财务室升级为财务部），就得修改程序了。

2、试用版没有限制外部表的数量啊。

参考

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

去编写datacolchanged事件，

Dim ary() As String = DataTables("表A").GetComboListString("第一列").split("|")
msgbox(array.indexOf(ary,"2"))

谢谢！我的需求可能有点古怪。

一般来说，是根据数组的序号，取数组的值。我的需求简化后，实际上就是根据值，确定其在数组里的序号，有两个步骤：

一、根据“列表项目”列生成数组，假如为 ar 

       Dim ar As String  =  DataTables("列表项目表").find(.....)            例中：表=表A，列=第一列

Dim ary() As String = ar.Split("|")
msgbox(array.indexOf(ary,dw))