老师，如图，下拉框的尺寸太小，待选内容多，装不下，有什么办法吗

在 afteropenproject中的代码

Tables("流水").Cols("样品名称").Combolist = DataTables("流水").GetComboListString("样品名称")

Tables("流水").Cols("规格").Combolist = DataTables("流水").GetComboListString("规格")

Tables("流水").Cols("材料牌号").Combolist = DataTables("流水").GetComboListString("材料牌号")

Prepareedit 中的代码

Dim st As String

If e.IsFocusCell Then \'如果是焦点所在单元格

    st=e.Col.Name

    If st= "样品名称" Or st="规格" Or st="材料牌号" Or st="样品编号" Then

        e.Col.Combolist = DataTables("流水").GetComboListString(st, "[委托单位] = \'" & e.Row("委托单位") & "\'")

    End If

End If

此主题相关图片如下：图片1.png