代码好像有错误,
cmb.ComboList = DataTables("列表").GetComboListString("费用类别", "费用项目 = '" & str & "' And 部门 = '" & str & "'")