16,549
社区成员
发帖
与我相关
我的任务
分享
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DGVSM.Rows.Add(3) '实际可能是1到6行不等
End Sub
Private Sub DGVSM_CellEndEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGVSM.CellEndEdit
'为了方便测试,将以下2行固定
arrSMGroupName = "绿色 哑光 FSR-8000;绿色 无卤 KSM-S6188EHG1;蓝色 KSM-S6189 BL01;红色 无卤 KSM-S6189 ER04;浅绿色 KSM-S6189 GL27;红色 KSM-S6189 R04".Split(";")
arrSMName = "FSR-8000;KSM-S6188EHG1;KSM-S6189 BL01;KSM-S6189 ER04;KSM-S6189 GL27;KSM-S6189 R04".Split(";")
With DGVSM
Dim Row As Integer = .CurrentRow.Index
If .Item(1, Row).Value <> "" And .Item(2, Row).Value <> "" Then
.Item(3, Row).Value = ""
Dim Finish As String = .Item(1, Row).Value
Dim Color As String = .Item(2, Row).Value
Dim dtgCell As New DataGridViewComboBoxCell '给单元格加下拉项
If Finish = "亮光" Then
For i As Integer = 0 To arrSMGroupName.GetUpperBound(0)
If chkSMHF.Checked Then
If arrSMGroupName(i).IndexOf("哑") = -1 And arrSMGroupName(i).IndexOf(Color) > -1 And arrSMGroupName(i).IndexOf("无卤") > -1 Then '不含"哑"的即为亮光
dtgCell.Items.Add(arrSMName(i))
End If
Else
If arrSMGroupName(i).IndexOf("哑") = -1 And arrSMGroupName(i).IndexOf(Color) > -1 Then '不含"哑"的即为亮光
dtgCell.Items.Add(arrSMName(i))
End If
End If
Next
End If
.Item(3, Row) = dtgCell '绑定到此单元格
End If
End With
End Sub