10 个解决方案
#1
如果按照在BeforeEdit时对需要的cell设置下拉框,不需要的就取消的思路,可是怎么取消呢?
#2
希望得到解答,自己顶
#3
没有人知道吗?自己再顶!
#4
1.在界面上加一下combobox,開始時.visible=false
2.當點到那相應的單元格時,combobox.visible=true
3.然後調節combobox.left=單元格.left,combobox.top=單元格.top
步驟就是這樣了,代碼我想難不到樓主吧。
2.當點到那相應的單元格時,combobox.visible=true
3.然後調節combobox.left=單元格.left,combobox.top=單元格.top
步驟就是這樣了,代碼我想難不到樓主吧。
#5
谢谢wing013 的回答。如果只能这样那我就不用这个控件了。难道VSFlexGrid自己不能实现吗?继续寻求解决办法。
#6
需要:ColComboList(col)="x|y|z"
不要:ColComboList(col)=""
不要:ColComboList(col)=""
#7
按照txyyanis说的搞定了!你就是俺的大救星啊!感谢wing013的参与。马上结帖。
#8
有与楼主同样的问题,看结贴了,却没见到合适的答案,楼主如果按照6楼的答案,岂不还是一列全都是下拉框吗
具体怎么回事请楼主在解释一下
具体怎么回事请楼主在解释一下
#9
和8楼一样想法
#10
With fg
lCol = .MouseCol
lRow = .MouseRow
If lRow = 1 Then
.Editable = flexEDKbdMouse
.SelectionMode = flexSelectionListBox
.ColComboList(1) = fg.BuildComboList(m_DS.m_RS, "customerid")
.ShowComboButton = flexSBFocus
.ComboSearch = flexCmbSearchLists
.EditCell
Else
fg.ColComboList(1) = ""
End If
End With
lCol = .MouseCol
lRow = .MouseRow
If lRow = 1 Then
.Editable = flexEDKbdMouse
.SelectionMode = flexSelectionListBox
.ColComboList(1) = fg.BuildComboList(m_DS.m_RS, "customerid")
.ShowComboButton = flexSBFocus
.ComboSearch = flexCmbSearchLists
.EditCell
Else
fg.ColComboList(1) = ""
End If
End With
#1
如果按照在BeforeEdit时对需要的cell设置下拉框,不需要的就取消的思路,可是怎么取消呢?
#2
希望得到解答,自己顶
#3
没有人知道吗?自己再顶!
#4
1.在界面上加一下combobox,開始時.visible=false
2.當點到那相應的單元格時,combobox.visible=true
3.然後調節combobox.left=單元格.left,combobox.top=單元格.top
步驟就是這樣了,代碼我想難不到樓主吧。
2.當點到那相應的單元格時,combobox.visible=true
3.然後調節combobox.left=單元格.left,combobox.top=單元格.top
步驟就是這樣了,代碼我想難不到樓主吧。
#5
谢谢wing013 的回答。如果只能这样那我就不用这个控件了。难道VSFlexGrid自己不能实现吗?继续寻求解决办法。
#6
需要:ColComboList(col)="x|y|z"
不要:ColComboList(col)=""
不要:ColComboList(col)=""
#7
按照txyyanis说的搞定了!你就是俺的大救星啊!感谢wing013的参与。马上结帖。
#8
有与楼主同样的问题,看结贴了,却没见到合适的答案,楼主如果按照6楼的答案,岂不还是一列全都是下拉框吗
具体怎么回事请楼主在解释一下
具体怎么回事请楼主在解释一下
#9
和8楼一样想法
#10
With fg
lCol = .MouseCol
lRow = .MouseRow
If lRow = 1 Then
.Editable = flexEDKbdMouse
.SelectionMode = flexSelectionListBox
.ColComboList(1) = fg.BuildComboList(m_DS.m_RS, "customerid")
.ShowComboButton = flexSBFocus
.ComboSearch = flexCmbSearchLists
.EditCell
Else
fg.ColComboList(1) = ""
End If
End With
lCol = .MouseCol
lRow = .MouseRow
If lRow = 1 Then
.Editable = flexEDKbdMouse
.SelectionMode = flexSelectionListBox
.ColComboList(1) = fg.BuildComboList(m_DS.m_RS, "customerid")
.ShowComboButton = flexSBFocus
.ComboSearch = flexCmbSearchLists
.EditCell
Else
fg.ColComboList(1) = ""
End If
End With