主题：有关CheckedComboBox控件

不需要在SelectedIndexChanged事件加代码；
把下面代码放到CheckedComboBox1 的 textchenged事件中：（只适合选择单项内容）

Dim lst As WinForm.CheckedComboBox
lst = e.Form.Controls("CheckedComboBox1")
if lst.text = nothing then
    e.Form.Controls("TextBox1").value = ""
else
    dim dr as DataRow  = DataTables("货损信息").find("货损代码 = '" & lst.value & "'")
    if dr isnot nothing then
        e.Form.Controls("TextBox1").value = dr("货损描述")
    end if
end if

哈哈～ 搂主是你自己啊～！！！
多项选择，要请教其他老师或狐爸了。。。。  sorry！

顺便问一下： 一共有多少选项啊？ 或是不确定？

如果只有两个选项的话，把下面代码放到CheckedComboBox1 的 textchenged事件中：（不确定选项个数的话，请大师们帮忙啦～，我不行了～呵呵！）
Dim lst As WinForm.CheckedComboBox
lst = e.Form.Controls("CheckedComboBox1")
if lst.text = nothing then
    e.Form.Controls("TextBox1").value = ""
else
if lst.text like "*,*"
    Dim Multi As string = forms("窗口1").controls("checkedcombobox1").text
    Dim Values as String() 
    Values = Multi.split(",")   
    dim hs1 as string = values(0)
    dim hs2 as string = values(1)   
    dim dr1 as DataRow  = DataTables("货损信息").find("货损代码 = '" & hs1 & "'")
    dim dr2 as DataRow  = DataTables("货损信息").find("货损代码 = '" & hs2 & "'")
    if dr1 isnot nothing andalso dr2 isnot nothing then
    forms("窗口1").Controls("TextBox1").value = dr1("货损描述")  & "," & dr2("货损描述")
    end if 
else
    dim dr as DataRow  = DataTables("货损信息").find("货损代码 = '" & lst.text & "'")
    if dr isnot nothing then
        e.Form.Controls("TextBox1").value = dr("货损描述")
    end if
end if
end if

帮顶一下:::::::::::   看看那位能搞定。。。。。。。。。。

有点想知道是怎样解决的？ 可以吗～。。。