vb
'給与〆支払条件
abc = Nothing
abc = New ListViewItem.ListViewSubItem()
Dim siharai_str As String = check_dbnull(rs.Fields("sime_str").Value) & "" & check_dbnull(rs.Fields("siharai_str").Value)
abc.Text = siharai_str
Dim sime_siharai_str As String = set_sime_siharai_str(rs.Fields("ko_cd").Value)
If sime_siharai_str <> siharai_str Then
abc.BackColor = Color.LightPink
abc.ForeColor = Color.White
End If
lvi.SubItems.Add(abc)