主题：老大，可否先解决一个小问题？急！

这是我在一datalist  的doubleclick  里面的代码

Dim dst As WinForm.DataList = e.Form.Controls("预算项目")
Dim dr as DataRow = dst.Current '获得选定行
If dr Is Nothing Then
    Return
  else tables("会计凭证总表.会计凭证").current("项目名称") = dst.current("项目全称")
       e.Form.Close()
End If

意思是双击了DATALIST以后，定位当前行的某字段，再来给其他表赋值。

很简单的。

有了行，就有了单元格：

dst.current("项目全称")