主题：如何引用其它表间参数

请师傅帮忙呀

呵呵，你的代码基本没有错，但是代码中的控件名称和列名是错误的，写代码的时候，你得看一下要设置列表项目的控件的名称，而不是ComboBox3\ComboBox4\ComboBox5...这么随便列下去：

Dim dt AS DataTable = DataTables("参数")
Dim lst AS String = dt.GetComboListString("出口品种")
e.Form.Controls("ComboBox2").ComboList = dt.GetComboListString("出口国家")
e.Form.Controls("ComboBox6").ComboList = lst
e.Form.Controls("ComboBox7").ComboList = lst
e.Form.Controls("ComboBox8").ComboList = lst
e.Form.Controls("ComboBox9").ComboList = lst
e.Form.Controls("ComboBox14").ComboList = lst
e.Form.Controls("ComboBox15").ComboList = lst
e.Form.Controls("ComboBox16").ComboList = lst
e.Form.Controls("ComboBox17").ComboList = lst
lst = dt.GetComboListString("出口材料")
e.Form.Controls("ComboBox10").ComboList = lst
e.Form.Controls("ComboBox11").ComboList = lst
e.Form.Controls("ComboBox12").ComboList = lst
e.Form.Controls("ComboBox13").ComboList = lst
e.Form.Controls("ComboBox18").ComboList = lst
e.Form.Controls("ComboBox19").ComboList = lst
e.Form.Controls("ComboBox20").ComboList = lst
e.Form.Controls("ComboBox21").ComboList = lst